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If costs $100 for liie documentation and/or an additional $1§§ for 
the software on diskette. We highly recommend subscribing to the 
II complete program - documentation PLUS software. 

^:| 

*0^ in adopting this appm&cb? we're going straight for the jygylar 

fell We anticipate a very competitive market for business software 

0p% relating to the TRS-80 within the next year, and wish to establish 

||!!; ourselves immediately in a dominant position. In doing so, we are 

§|;,|| presuming over 1,000 participants in the BUS-80 project. Pricing 

|g|j accordingly, we truly feel BUS-80 will become such a fantastic 

?%;^ bargain that few serious businessmen who intent to use a TRS-80 

felSt within their enterprise could possibly pass up the value offered. 
Really, how could you pass this up? 

We're syre you must be interested in just what you'll be getting . 
Well, just about everything you need! Within the year, (and 
probably within six months) you'll receive a disk-based Inventory 
system - Accounts Receivable system - Accounts Payable system - 
General Ledger system - Sales - and Payroll. 

We're not talking aboyf sfrippedndbwn systems 
Elements of BUS-80 are already prepared and have been sold 
individually to satisfied customers for as much as $150. The 
Name/Address system requires an entire diskette itself (over 
50,000 bytes) with some optional subroutines relegated to another 
supplementary disk. 

BUS-80 is not only competitive, it will set the simd&rd by which 
valye is compared. And thai standard will be hard to meet. 
We would like it understood from the outset that while BUS-80 will 
deliver a core system for an extremely reasonable price, we'll also 
be offering other pieces of software for general sale. Usually, 
BUS-80 participants will be given a discount - in any event, by 
;S; today's standards, tremendous value will be realized. The first 
element of BUS-80 is currently being offered 
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THAT'S.THE PITCH - BELIEVE IT - IT'S TRUE! 
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SoftSide magazine is continually seeking original articles 
and software for publication. Imagination and variety in 
concept and content are the rules at SoftSide — not the 
exceptions. Articles are purchased on a per- page basis, 
based on content and applicability. Our policies with 
respect to software purchase are highly individualized, and 
offer the programmer several options, including one-time 
publication rights, outright purchase, and royalties on sale 
of pre-recorded cassettes. For more information, please 
write: SoftSide, PO Box 68, Milford/NH 03055. . 
For uniformity, we have adopted the Radio Shack TRS-80 
Level II BASIC as the BASIC dialect used within the pages 
of this magazine. It was chosen because it stands to become 
the most commonly used dialect among mocrocomputer 
users and because it shares a common heritage with the 
many microcomputer languages produced by Microsoft. 
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Outgoing Mail 

Some straight talk about your first million. 

If you are going to make your first million writing a computer program 
this year, there are overwhelming odds against you. Despite the wild 
claims that have appeared in other places, great fortunes are not yet 
available. We have recently been able to verify our suspicion that the 
TRS-80 Software Exchange is the largest independent supplier of TRS-80 
Software. The time has come to drop the hoopla and talk straight. 

While others make wild claims of a market of 50,000 to 75,000 buyers 
for a single game, that is not very likely. Micro Chess has claimed 50,000, 
but it is available for PET, APPLE, and level I and II TRS-80, and is even 
sold by Radio Shack. Despite the claim to be the first "Gold Cassette", 
the honor is clearly held by Radio Shack's Blackjack and Backgammon 
tape. 

Here are the facts, so that you can draw your own conclusions. A few 
more than 150,000 TRS-80' s have been sold. Perhaps 50,000 of these 
have gone to big business like the oil companies and other locations 
where game use will not be significant. We suspect that another 30,000 
computers aYe disused and practically forgotten. Perhaps another 5,000 
computers serve as second computers for people like myself, our 
publisher, and several members of the Pittsburgh Computer Club who 
have more than one TRS-80. Another 5,000 are probably in the hands of 
mainframe programmers who are using them for machic^ language 
programming or dedicated applications. That leaves about 60,000 people 
to sell to. Only half of them read the magazines, so you would have to 
sell through Radio Shack to contact the rest. Of the 30,000 left, many 
would rather die than purchase software. They write, they trade, they 
share, but they do not buy. * 

We have a list of 15,000 computer owners that we send the TRS-80 
Software Exchange catalogue to. It is an active list, and we have sold to a 
very high proportion of them. By talking to our programmers, we have 
discovered that no one but Radio Shack is coming close to the amount of 
TRS-80 software we are selling. We have quite a number of authors who 
have also sold programs to Sensational Software (Creative Computing) 
and Instant Software (Microcomputing). Most of them have sold 
programs to the others only once, then they came back to us. They came 
back because they were making more money. I should not complain. 
Instant Software's full page ad in the July issue for Santa Paravia should 
do well for me. If they have it long enough and continue to promote it, it 
may even make more than it made for me in the six months it was sold by 
the TRS-80 Software Exchange. But the volume of the Software 
\Exchange has tripled since that period. , 
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r^How much do you make from a program? Most of the names that are* 
familiar to you from our pages are people who are receiving about $300 a 
month in royalties from us. We do have an author receiving far over 
$1000 a month in commissions, but most of the regulars are making 
about $300. They are not making it from a single program, but from 
several. Most of our programs pay $10 to $100 a month in royalties. For 
example, my own average monthly income during April and May was $8 
for Sink Urn, $25 for Pork Barrel , and $102 for X-Wing Fighter, among 
the nine programs offered. Our sales have increased since then, so the 
figures may be higher now. But I am in little danger of entering an 
outrageous tax bracket. 

You can have a good part time income, and a couple of our writers have 
now quit their regular jobs to write full time. If you are interested, here 
are some hints. Learn to write well, including documentation as well as 
programs. Become prof icient as a programmer. Write regularly, perhaps 
a good program each month. It will pay to develop a specialty, such as 
Leo Christopherson's brilliant animation, "Scott Adams' adventures, or 
Lance Micklus' machine language utilities. As for marketing; if you can 
sell it to Radio Shack, do it. Their percentage is low, but their volume 
more than makes up for it. If another publisher will guarantee you 
$5,000, or guarantee to spend several thousand on specific ads for your 
program, you should do well. Otherwise, you will probably do best with 
us. We find that even when we carry another company's line of software, 
we rapidly become their largest customer. 

Since the name of the game for a software house is repeat business, we 
have a lot of reservations about two suppliers. Personal Software and 
Instant Software are having terrible customer relations problems, mainly 
with slow delivery. We ordered Time Trek from Personal Software, and 
after several long distance pleading calls, finally got a small shipment; 
for the PET! We hope they get their act together, for they have some fine 
programs, and we like to sell the best. Another way to judge a publisher 
is to look at their ads. Do they stick to their own magazine or advertise 
widely? Do they buy full pages or small ads? We have advertised in Byte, 
Creative Computing, 80-US, Personal Computing and the CLE. 
Newsletter. Byte has done so well for us that we are experimenting with 
two page ads there. 

While we are waving dollar signs in front of your eyes, Softside would 
like a wider variety of articles. We want something for our readers when 
they get tired of typing at the keyboard. How about some good general 
interest articles, reviews, or perhaps some crystal ball gazing? If it is too 
technical for SoftSide we might still be able to use it in PROG-80. 

Now, if you will excuse me, I am going to keep at our feature article 
while I learn how to singlehandedly shut down a nuclear disaster. After 
all, I live only a few hours from Three Mile Island, as the wind blows! I 
used to play and fish there, as a child. 
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A UTILITY PROGRAM 

THAT GREATLY EXTENDS 

THE KEYBOARD VIDEO 

AND PRINTER 

SUBROUTINES IN YOUR 

k. LEVEL II ROM! 

KVP runs under DOS or Level 
II BASIC. It is relocatable 
nder your control, and so 
may be used simulta- 
neously with other 
^machine language 
by Lance Mlcklut |^ programs. 



Hem are some of the things you'll be able to do; 



USE AN EXTERNAL KEYBOARD 
Or, use any other serial input device 
i n place of the TRS-8C keyboard 



PRACTICALLY ELIMINATE KEY 
BOARD BOUNCE The amount ol 
debouncing isuser adjustabt 



DISPLAY UPPER AND LOWER 
CASE LETTERS on your video 
monitor screen 





SIMULATE A RADIO SHACK 
SCREEN PRINTER u< ng an ord nary 
printer 



USE MOST ANY ASCII SERIAL 

PRINTER u f 43 T»letyr.e 33 or 
Sp nterrr 



EXCHANGE PROGRAMS WRITTEN 
IN BASIC WITH OTHER COM 
PUTERS From the Sorcerer to the 
IBM 370 (an 1 TRS^O s, too?) 
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At least 16K memory reqi 
A UTILITY PROGRAM 
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Self-relocating for 1 6K, 32K, or 48k system* 
$24.95 on tap* $29.95 on dUk 



LEVEL I in LEVEL Ik, ™ T 

Remember the Good Old Days? . . . You can recapture them! 

Level I BASIC interpreter loads in top 4K of any 16K Level II 
TRS-80. Allows unmodified load, run, and CSAVE of Level I 
programs — no conversion hassles! Great for teaching beginners, 
young and old, to program in BASIC. 

"System" tape/Level I for Level II, 16K- $15.00. 

T|E TRS-80 SoftuKue EKchonge 

17 Brlsr Clllt Drlvo Mlltord. Now Hsmpshiro 03055 



ADVENTURE 




BEGINNER 

Journey to the Confer of the Eorth. Level II BASIC — $7.95 
by Greg Hassett 

INTERMEDIATE 

Dog Star Adventure, Level II BASIC — $9.95 
by Lance Micklus 



ADVANCED* 

Voodoo Castle 

The Count ) 1 on Tape or Disk — $14.95 

Mission Impossible \ by Scott Adams 2 on Disk — $24.95 
Pirates Cove J 3 on Disk — $39.95 

Land Adventure 



* NOW IN MACHINE LANGUAGE 
FOR INSTANT RESPONSES AND MORE EXCITEMENT! 

Tf£TR5-60 Software Exchange 

■ M ^ m 17 BRIAR CLIFF DRIVE MIL FORD NEW HAMPSHIRE 03055 






Get set to take command! The event: very high 

critical mass, water pressure low; radiation level 

getting dangerously high! Every second counts, 

and if you fail, the grim result will be a massive 

meltdown, with elimination of all life within a 

250-mile radius. Take charge, and good luck! 



by Michael Winter 



Since their introduction in the 
1950's, nuclear power plants 
have been an important step in 
man's quest for a cheaper, 
non-polluting form of energy. 
But with this new-found energy 
source came some problems. The 
first problem was how to safely 
store highly radioactive substan- 
ces without releasing radiation - 
finally solved by means such as 
thick lead shielding and under- 
ground salt mines. The second 
was how to control the reactor 
while the reaction was taking 
place; scientists dealt with that 
by developing large, complicated 
power plants with many gauges 
and computers to help run them. 
But despite all this technology, 
nuclear power plants still can 
have accidents. 



In this simulation you get your 
chance to take command of a 
nuclear power plant and find out 
what it is really like. When you 
first take control you will notice 
that there are only a few meters 
- not the assortment of hundreds 
found in a real plant. Reason: all 
the back-ups in this "plant" 
have been eliminated, and the 
meters you see are of an 
advanced nature, so you never 
get a "false reading". At the 
bottom of the screen will appear 
a time clock, and a description of 
the event which is currently 
taking place in the plant. To win 
this game requires a player with 
the ability to look the entire 
situation over, and determine 
quickly what steps are necessary 
to bring the reactor back under 
control. 
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To regain control, you must 
have everything in a stabilized 
condition - i.e., water pressure 
must read approximately 5, core 
temperature must also read 
approximately 5, etc. The only 
meter that is excluded from 
reading as close to 5 as possible 
is the emergency core cooling 
level indicator. This meter 
should read as high as possible. 
All of the above factors are 
influenced by your skill level. 

At skill Level I the computer 
will consider any reading above 1 
on the emergency core cooling 
level meter as okay, whereas at 
level 5 the computer will only 
consider anything above 5 as 
acceptable. Also at Level I the 
computer will accept readings 
from all the other meters of 3.5 to 
7.5, but on level 5 the meters 
must all read exactly 5. 

Every three seconds, as noted 
on the time clock, the computer 
checks the complete status of the 
plant, at which point you may 
find that you have won, or lost. 
The computer will also check the 
plant status anytime you hit a 
key. It is advisable to be careful 
about which keys you hit, 



because the wrong key could end 
the game! Also along with 
checking the win or loss factor 
every three seconds, it incre- 
ments or decrements each meter 
reading depending upon the 
event. Changing the control rod 
level will cause every meter to 
reflect that change immediately. 
When the control rods are raised 
(withdrawn); fission will occur 
more rapidly, thus increasing the 
core temperature. Lowering 
them will have the opposite 
effect. 

When playing this game it is 
important to understand that not 
only will each command directly 
affect the meter it is aimed at, 
but also the entire reactor. For 
example, releasing core coolant 
will of course lower the core 
temperature, but it will also 
affect all the other meters 
because as the core temperature 
lowers, room temperature drops; 
less heat is released, the amount 
of steam decreases and the water 
pressure will go down; because 
there is less water pressure the 
turbine speed will decrease. As 
you can see, every meter is 
dependent upon every other, just 
as in a real plant. The core 
temperature is the only factor in 
determining if you have lost, 
although everything else is affec- 
ted as explained above. If the 
core temperature hits 9, you lose. 
It is also necessary to keep an eye 
on the water pressure. If it reac 
reaches 9, the pipes will burst, 
causing a temporary loss of core 
cooling. This is similar to what 
happened in the movie, "The 
China Syndrome". 

This is not the type of game 
you can win the first time you 
play. It takes time to develop the 
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insight and reflexes necessary 
for victory. The most important 
thing you will have to learn is 
what each command affects, how 
to weigh the advantages and 
disadvantages, and how to make 
a logical decision on the best 
course of action. 

When I first set out to write 
this program I was not at all sure 
which direction to go in. After 
seeing "China Syndrome"and 
hearing about Three Mile Island, 
I decided on a complete working 
model of a nuclear plant. 

The first problem was to 
determine which meters, out of 
the vast assortment in an actual 
plant, were the most important. 
The meters you see as you take 
command are there because of 
their practical value to the 
program and my feeling that they 
give the user the most realistic 
model of an actual plant. 

Next, I decided to give the 
program as much real-time ac- 
tion as possible. To do this I used 
a flashing cursor and a real time 
clock. I set up the clock so that 
every three seconds the plant's 
complete status was checked. 
Then I made up a list of all the 
things I could think of that would 
go wrong, and put these in a list 
of data statements, along with 
the meter readings for each 
event, and the direction each 
meter would move when the 
status was checked. I listed the 
possible commands, and picked 
the ones I felt were most 
realistic. Each command had to 
interact with the meters; to 
accomplish this I devised two 
formulas, in which the input 




would be a number from 1 to 9, 
and the output would be the 
correct screen position to display 
a given number on a given 
meter. The only difference be- 
tween the two formulas is that 
formula 2 can show any number 
from 1 to 9 in steps of 0.5, where 
formula 1. only displays the data 
in steps of 1. Finally, I wrote the 
routine to display the control 
rods. 

The routine which flashes the 
cursor is very easy to do, and 
adds a very nice touch to all 
real-time programs. With a little 
extra work the routine could be 
modified to do anything - from 
displaying input, to delaying X 
seconds, and if no input is given, 
continuing on with the rest of the 
program. The bar graph routine 
which displays the control rods 
could also be modified for use 
with other programs. Finally, the 
routine which prints out "You 
have won" could be used in any 
other program, and its printing 
delay time is very simple to 
adjust. 
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28 REM** NUCLEflR REACTOR * LEVEL II 1« ** 
38 REN**** WRITTEN BV MICHAEL WINTER 
48 REH******* NEH CflNRflN CT. 86848 
S8 REM***** VERSION 3. 7 ** JUNE 1979 ***** 

68 RE M —"- -1 ^ ■ 

78REH* SET UP PROGRAM * 

88 aERR 23: PC=1 : RANDOM 

98 CLS : PRINT : PRINT : PRINT 

188 PRINT" * * * NUCLEflR REflCTOR TEST * * *» 

118 PRINT : PRINT 

128 PRINT" IN THIS SIMULATION VOU ARE THE COMMANDER OF A" 
138 PRINT"NUCLEAR POWER PLANT, AND WHILE VOU ARE IN COMMAND" 
148 PRINPRANDOM OISflSTERS HILL CONE UP AND VOU HILL HflVE TO THE 

158 PRINT'BEST OF VOUR flBILITV TRV TO OCT THE PLftNT BftCK UNDER* 

168 PRINT-CONTROL, IF VOU FAIL VOU HILL EXPERIENCE A MASSIVE HEL 

T-" 

178 PRINT a DOHN WHICH HILL CAUSE THE ELIMINATION OF ALL LIFE WITH 

IN" 

188 PRINT-A 258 MILE RADIUS OF THE PLANT. THE COMPUTER WILL TAKE 

N 

198 PRINT-VOUR SKILL LEVEL INTO CONSIDERATION WHEN IT IS TESTING 

H 

288 PRINT-TO SEE IF VOU HAVE HON, TO HIN VOU MUST HflVE ALL THE" 

218 PC=1 

228 INPUT-PRESS =ENTER= TO CONTINUE"; D* 

238 CLS : PRINT : PRINT : PRINT 

248 PRINT-METERS READING AS CLOSE TO 5 AS POSSIBLE, WITH THE" 

258 PRINT"EXCEPTION OF THE RADIATION LEVEL METER, AND THE EMERGE 

NCV" 

260 PRINT-CORE COOLING LEVEL METER, THE COMPUTER WILL CONSIDER, " 

270 PRINT-DEPENDING ON VOUR SKILL LEVEL, ANV READING ON THE RADI 

AT ION" 

288 PRINT "LEVEL METER BELOW 2 AS SAFE, AND ANV READING ON THE" 

298 PRINT"EMR. CORE COOLING METER ABOVE 2 AS SAFE. THE COMPUTER" 

380 PRINT"WILL TIME VOU, AM) AS IN A REAL PLANT, VOU WILL HAVE" 
310 PRINT"TO REACT QUCKLV TO RVOID A MELT DOWN! ALSO EACH COMMAN 
D" 
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328 PRINT"HAS ITS ADVANTAGES, AND ITS DISADVANTAGES, VOU HILL Hfl 

VE" 

338 PRINT"T0 HEIGH THE TWO AM) MAKE fl LOGICAL DESCION, TO HELP" 

348 PRINT'VOU HERE IS A PARTIAL LIST OF THE COMANDS, THEIR" 

358 PRINTADVANTAGES, AM) DISADVANTAGES:" 

368 INPUT"PRESS =ENTER= TO CONTINUE"; D$ 

378 OS : PRINT : PRINT: PRINT 
388 PRINT'COMMRND ADVANTAGE 

COOLS CORE 

V LONERS HATER PRESSURE 

S LOWERS CORE TEMP. 

C SPEEDS UP TURBINE 



396 PRINT" 
488 PRINT" 
418 PRINT" 
428 PRINT" * 
438 PRINT" ". 
URBINE SPEED 
448 PRINT" 
DOLING" 

458 PRINT" 
468 PRINT" 
478 PRINT" 
488 PRINT" 



DISADVANTAGE" 
RAISES HATER PRESSURE" 
RAISES CORE TEMP 
STOPS TURBINE" 
RAISES CORE TEMP" 



CHR$<92); ' 



i"C 



LOWERS CORE TEMP. 



LOWERS T 



LOWERS CORE TEMP 



LOWERS EICRGENCV CORE C 



LOWERS TURBINE SPEED" 
RAISES CORE TEMP 
RAISES CORE TEMP. " 
RAISES WATER PRESSURE" 



+P RAISES CRITICAL MASS 

-P LONERS CRITICAL MASS 

+T SPEEDS UP TURBINE 

-T SLOWS DOWN TURBINE 
498 INPUT-PRESS =ENTER= TO CONTINUE"; Df 
588 as : PRINT : PRINT : PRINT 
518 PRINT"COMMAM>S EXPLAINED:" 
528 PRINT" T-SPEEDS UP OR SLOHS DOWN TURBINE" 
538 PRINT" P-BDDS OR TAKES OUT PLUTONIUM" \ 

548 PRINT" O-OPENS MAIN HATER VALVE" ) 

558 PRINT" V-OPENS MAIN RUN OFF VALVE" 

568 PRINT" C-6IVES VOU CONTROL OF THE CONTROL RODS, EITHER UP OR 
DOWN* 

578 PRINT" S-STARTS REflCTOR SCRAM" 

588 PRINT" E-RELEASES B*. CORE COOLING, VOU CflN ONLV RELEASE TH 

E AMOUNT SHOHN ON VOU EMR. CORE COOLING LEVEL METER 

I-PRINTS OUT THESE INSTRUCTIONS" 

598 INPUT'PRESS =ENTER= TO CONTINUE"; Dl : IF SG=2 THEN RETURN 
688 PRINT»HHAT LEVEL OF PLAV -1-NOVICE, -2-EASV, -3-HARD" 

618 INPUT"-4-VERV HARD, -5-EXPERT"; LV 

628 IF LV=5 THEN BN=18 : EN=16 : RD=1 ELSE IF LV=4 THEN BN=9 : E 
N=ll : RD=2 ELSE IF LV=3 THEN BN=8 : EN=12 : RD=3 ELSE IF LV=2 T 
HEN BN=7 : EN=13 : RD=4 ELSE IF LV=1 THEN BN=6 : EN=14 : RD=5 EL 
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SE PRINT" INVALID-- TRY fiGAIN!!" .■■;■ GOTO 686 

628 REM * DRAW METER BOXES * 

646 CLS 

658 FOR S=6 TO 8 : SET<2,S> : SET<39,S> : SET<42,S> : SEK79,S> 

: SET(82,S> : SET(119,S> : NEXT S 

668 FOR S=12 TO 26 : SET<2,S> : SET<39,S> : SETC42,S) : SET<79,S 

) : 5ET<82,S> : SET<119,S> : NEXT S 

678 FOR S=23 TO 32 : SETC2,S) : SET<39,S> : SET(42,S> : SET(79,S 

) : 5If<82,S> : SET<U9,S> : NEXT S 

688 FOR S=2 TO 39 : SET(S,9> : SET<S,21> : SET<S,33> : NEXT S : 

FOR S=42 TO 79 : SET(S,9> : SET<S,21> : SET<S,33> : NEXT S : FOR 
S=82 TO 119 : SET(S,9> : SET(S,21) : SET(S,33> : NEXT S 
698 REM * LflBLE METERS * 

788 PRINT 6 5, "WATER LEVEL"; : PRINT 8 22, "CORE TEMPERATURE"; : 
PRINT 8 42, "ROOM TEMPERATURE"; 

718 PRINT 8 259, "WATER PRESSURE"; : PRINT § 278, "CRTICAL MASS L 
EV. "; : PRINT 8 298, "CONTROL ROD LEV. "; 

728 PRINT 8 516, "TURBINE SPEED"; : PRINT 8 535," RADIATION LEV. " 
; : PRINT 8 554, "EMR. CORE COOLING"; 
738 REM * PRINT SCALES IN EACH METER * 

748 FOR Pl=138 TO 176 STEP 26 : PRINT 8 PI, "1 2 3 4 5 6 7 8 9"; 
: NEXT PI 

756 FOR Pl=386 TO 426 STEP 28 : PRINT 8 PI, "1 2 3 4 5 6 7 8 9"; 
: NEXT PI 

768 FOR Pl=642 TO 682 STEP 28 : PRINT 6 PI, "12 3 4 5 6 7 8 9"; 
: NEXT PI 

776 REM * IF COMING FROM PROGRAM RETURN * 
786 IF GS=1 THEN RETURN 
798 REM * GET A RANDOM DISASTER * 
866 RESTORE : DA=RND<16) 
816 FOP X = l TO Dfl 

826 RES) D$, DL D2, D3, D4, D5, D6, D7, D8, D9, II, 12, 13, 14, 15, 16, 17, 18, 1 
9 

836 NEXT X 
846 GOTO 958 

858 REM * INCREICNT EACH METER * 

868 D1=D1+I1 : D2=D2+I2 : D3=D3+I3 : D4=D4+I4 : D5=D5+I5 : 
D6=D6+I6 : D7=D7+I7 : D8=D8+I8 : D9=D9 

878 IF D7 > D4 THEN D7=D4+2 ELSE IF D7 < D4-2 THEN D?=D4-2 
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889 IF TH<= i THEN ZX=D6 ELSE ZX=INT(D6/2> 

898 IF ZX=5 THEN 938 : REM * GIVE fl REflLISTIC HETER LEVEL 

DEPENDENT UPON CONTROL ROD LEVEL * 

988 IF ZX=1 THEN Dl=Dl+8 . D2=D2+6 : D4=D4+8 : D7=07+8 ELSE IF 2 

X=2 THEN Dl=Dl+6 : D2=02+4 : D4=D4+6 : D7=D7+6 ELSE IF ZX=3 THEN 

Dl=Di+4 : D2=D2+3 : D4=D4+4 : D7=D7+4 ELSE IF ZX=4 THEN Dl=Dl+2 

: D2=D2+2 : D4=D4+2 : D7=D7+2 
918 IF ZX=6 THEN Dl=Dl-2 : 02=02-2 : D4=D4-2 : D7=D7-2 ELSE IF Z 

X=7 THEN Di=Di-4 : D2=D2-4 : 04=04-4 : D7=D7-4 ELSE IF ZX=8 THEN 
Di=Dl-6 : D2=D2-5 : D4=D4-6 : D7=D7-6 ELSE IF ZX=9 THEN D1=D1- 

8 : D2=D2-6 : D4=D4-8 : D7=D7-8 

928 D3=D2-2 : D8=D2-4 : D9=D9-2 

938 IF PC=i THEN PC=2 : GOTO 1668 ELSE GOTO 1888 

948 REM * FORMULA TO COMPUTE SCREEN PCS FOR EflCH METER * 

958 MP=64+D1*2 

968 M2=84+D2*2 

978 M3=184+D3*2 

988 M4=328+D4*2 

998 «5=348+D5*2 

1888 M6=368+D6*2 

1818 M7=576+D7*2 

1828 M8=596+D8*2 

1838 M9=616+D9*2 

1848 GOTO 1458 

1858 REM * IF FIRST PflSS ON NEH FORMULA THEN CONVERT OLD SCREEN 

POSITIONS TO THE NEH FORMULA * 

1868 D1=D1*2 : D2=D2*2 : D3=D3*2 : D4=D4*2 : D5=D5*2 : 

D6=D6*2 : D7=D7*2 : D8=D8*2 . D9=D9*2 
1878 REM * CORE TEMP. TOO HIGH? IF SO YOU LOSE * 
1888 IF M2=162 THEN 3228 
1898 REM * REACTOR STABLE? IF SO YOU WIN! ! * 
1188 IF M7=594 THEN D7=8 : 17=8 : Dl=8 : 11=8 : D2=9 : 12=1 : D3 
=8 : 13=1 : D4=8 : 14=8 : 15=8 : D8=8 : 18=1 : D9=8 : 19=8 
1118 IF TM > 5 AND Dl >=BN AND M. <=EN AND D2 >=BN AND D2 <=EN A 
ND D3 >=BN AND D3 <=EN AND D4 >=BN AND D4 <=EN AND D5 >=BN AND D 

5 <=EN AND D6 >=BN AND D6 <=EN AND D7 >=BN AND 07 <=EN AND 08 <= 
RD AND D9 >=BN-6 THEN 3388 

1128 REM * ERASE OLD METER READINGS FOR NEH ONES * 

1138 PRINT 8 MP, " "; : PRINT 8 M2, ■ "j : PRINT 8 M3, " "> : 
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HPRDUJPRE 

TH€ WRD < JID€™OI : 90miD€ ? 

NEW! TRS-SO Computers 10% off t 

Effective July 1, Radio Shack dropped the price of TRS-80 equipment. On the same 
date, we received authorization to sell the complete TRS-80 line, at 10% below the new 
low Radio Shack price. This all new equipment, with Radio Shack warranty and service, 
is now made more affordable than ever! 

If you're looking to save even more, consider Hardside's used equipment 
department for prime condition, previously owned TRS-80 equipment. 

Do you have something to sell? Hardside will buy any used Radio Shack TRS-80 
equipment in good condition. Refer to our price list below. 

So ... if you're looking to buy or sell TRS-80 equipment, look to us first! 



NEW 




USED 




i iuit NEWR/S 
UNIT LIST PRICE 


HARDSIDE 

DISCOUNT 

PRICE 


WE'LL PAY 


SELL 


Level 1 4K $499 
Level II 4K $619 
Level 1 16K $729 
Level II 16K $849 
Level II 16K no keypad 


$449 
$557 
$656 

$764 


$300 

$375 
$375 
$500 

$450 


$375 
$475 
$475 
$660 
$600 


Expansion Interface 

OK $299 

16K $448 

32K $597 


$269 
$403 
$537 


$175 
$225 
$275 


$225 
$300 

$375 


Disk Dnves $4 9 
1 $499 


$449 
$449 


$300 

$275 


$399 

$375 


iPercum disk drives 


$399 




- 


Prnters Friction feed* $1299 
Tractor Feed* $1559 
LinePrnterll $999 
Quick Printer 1* $499 
Quick Printer II $219 
'(Requires cable $40 


$1169 

$1403 

$899 

$449 

$197 

$36 ) 


$65 $800 
$75 $900 

New item Not available 
$250 $325 
$125 $175 


RS 232C $99 

Telephone Int 1 D ont 
Telephone Inl II $199 


$89 
nued 
$179 


$50 
$50 
$100 


$75 
$75 

$150 


16K Memory $149 


$99 







SPECIAL INTRODUCTORY OFFER FROM HARDSIDE 16K expansion interface with single disk 
drive S780. 



TELEPHONE: 603-673-5144 



Prices Do Not Include Shipping 
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HEADQUARTERS 




EXIDY SORCERER 

Until recently, you couldn't buy a microcomputer with the power and 
features of the Exidy Sorcerer. Now, an 8K RAM, 12K ROM Sorcerer 
is only $995.00. Advanced features Include built-in monitor in ROM 
(including memory and video tests), ultra-high resolution graphics 
(512x240), upper/ lower case, user-definable character set, and 1200 
band cassette I/O. Plus, 54 x 30 video (displays twice as much text as 
TRS-80), built in RS-232, parallel port, and the most complete 
keyboard of any microcomputer on the market. And, best of all, the 
Sorcerer is compatible with both CP/M and the S-100 bus for 
unlimited software and hardware expansion. Take a step up to 
Sorcerer power today! 



PRICE LIST 




Sorcerer Computer — 8K RAM 
16K RAM 


S995 

$1145 


32K RAM 


$1295 


OK RAM 


$1445 


ROM Software Cartridges - 

Word Processor $89 
Editor/Assembler $99 
BASIC [Included free with computer] $99 


Hardware Expansion 

S-100 Expansion Unit 
S-100 I/O Expansion Kit 


$349 
$199 


LEEDEX Video 100 monitor 


$139.95 



(The Sorcerer requires a video monitor or connection to a TV through an RF modulator.) 



HtttflDC 



TM 

Your market for new and used 



microcomputer equipment. 
17 Briarclif f Drive Milf ord , New Hampshire 03055 
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PRINT 8 M4/" "; : PRINT § N5," "i : PRINT 8 M6," ";. : 

PRINT 8 M7," "i : PRINT 8 MS," "; : PRINT 8 M9," "i 
1148 REM * NEH FORMULA FOR CALCULATING SCREEN POSTIONS, 
ALLOWS FOR MORE ACCURATE READINGS OF 1-9 IN INCREMENTS OF . 5 * 
1158 MP=64+D1 : M2=84+D2 : M3=184+D3 : M4=328+D4 : M5=340+D5 : 

M6=360+D6 : M7=576+D7 : M8=596+D8 : M9=616+D9 
1168 REM * CHECK FOR TOO HIGH OR TOO LOW READINGS * 
1170 IF MP < 66 THEN MP=66 
1180 IF HP > 82 THEN MP=82 
U98 IF M2 < 86 THEN M2=86 

1280 IF M2 > 102 THEN M2=102 



1210 IF M3 < 106 THEN M3=106 


1220 IF M3 > 122 THEN N3=122 


1230 IF N4 < 322 THEN M4=322 


1240 IF M4 > 338 THEN N4=338 


1250 IF M5 < 342 THEN M5=342 


1260 IF M5 > 358 THEN M5=358 


1278 IF M6 < 362 THEN M5=362 


1288 IF M6 > 378 THEN M6=378 


1298 IF M7 < 578 THEN M7=578 


1300 IF M7 > 594 THEN M7=594 


1310 IF M8 < 598 THEN M8=598 


1320 IF N8 > 614 THEN M8=614 


1338 IF M9 < 618 THEN 119=618 


1348 IF M9 > 634 THEN 119*634 


1358 IF DK0 THEN Dl=-2 


1360 IF D2<0 THEN D2=-2 


O70 IF D3<0 THEN D3=-2 


1380 IF D4<0 THEN D4=-2 


1390 IF D5<0 THEN D5=-2 


1400 IF D6<0 THEN D6=-2 


1410 IF D7<0 THEN D7=-2 


1420 IF D8<0 THEN D8=-2 


1430 IF D9<0 THEN D9=-2 


1440 REM * DISPLAY NEW METER READINGS * 


1450 PRINT MP,CHR$(92)i : PRINT M2,CHR$(92>; 


R$(92>; 


1460 PRINT M4,CHR$<92); : PRINT M5,CHR$(92)i 


R$<92>; 



PRINT 8 M3,CH 
PRINT 8 M&CH 
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1478 PRINT 8 H7,CHR*<92>; : PRINT 8 M8,CHR$<92>; : PRINT 8 H9,CH 
R*<92>; 

1488 PRINT 8 775, "AN EVENT HflS OCCURED--STBND BY TO TAKE COMMAND 

1498 REM * DISPLAY PROBLEM * 

1588 PRINT 8 839, "THE EVENT IS-",D$; 

1518 PRINT 8 982, "COMMAND?"; : PRINT 8 923, "TIME:";Tfc 

1528 REM ♦ REAL TIME CLOCK, EVERY 3 SECONDS METERS CHANGE * 

1538 TM=TM+1 . MM=MM+i : IF MM > 3 OR MM=1 AND PC=i THEN MM=8 : 

MX=MX+i : GOTO 868 

1548 IF MX >=2 THEN MX=8 : D9=D9+4 : IF D9 >=17 THEN D9=16 

1558 REM * * FLASHING CURSOR * * 

1568 PRINT 8 911, CHR$<14>; : FOR TD=1 TO 42 : NEXT TD : PRINT 8 
91i,CHR*(15)i : FOR TD=1 TO 23 : NEXT TD : PRINT 8 9il,CHR$<14>; 
: FOR TD=1 TO 42 : NEXT TD : PRINT 8 911, CHR*<15>; . FOR TD=1 T 
23 : NEXT TD . PRINT 8 928, " "; 
1578 REM * KEY PRESSED? IF SO GO TO COMMAND SUBROUTINE * 
1588 CH$=INKEY* : IF CM$="" THEN 1518 
1598 GOSUB 1798 

1688 GOTO 868 

1618 REM * DISASTER DATA * 

1628 DATA "HATER LEVEL LOM ! ", 3, 7, 6, 4, 5, 5, 4, 2, 4, -1, 1, 1, -1, 8, 8, -1, 

-1,-1 

1638 DATA "HATER PRESSURE LOW! ",4,7, 6, 3, 5, 5, 3, 2, 4, -1,1, 1,-1, 8, 8, 

-1,1,-1 

1648 DATA "LOW CRITICAL MASS! ", 5, 7, 6, 5, 3, 5, 6, 3, 5, 8, 1, 1, 8, -1, 8, 1, 

1,8 

1658 DATA "HIGH CRITICAL MASS ! ", 5, 3, 4, 5, 7, 5, 4, 1, 5, 8, -1, -1, 8, 1, 8, 

-1,8,8 

1668 DATA "HATER PRESSURE HIGH ! ", 6, 5, 5, 7, 4, 5, 7, 1, 6, 1, 8, 8, h 8, 8, 1 

,8,1 

1678 DATA "WATER LEVEL VERY LOW ! ! ", 2, 8, 7, 3, 5, 5, 3, 4, 3, -1, 1, 1, -1, 8 

,8,-1,1,-1 

1688 DATA "HATER PRESSURE VERY LOH! ! ",3,8, 7, 3, 5, 5, 2, 4, 4,-1, 1,1, - 

1,8,8,-LL-l 

1698 DATA "VERY HIGH CRITICAL MASS ! ! ", 5, 2, 3, 5, 8, 5, 3, 1, 5, 8, -1, -1, 

8, 1,8, -1,8,8 

1788 DATA " VERY LOW CRIT ICAL MASS ! ! ", 5, 8, 7, 5, 2, 5, 7, 4, 5, 8, 1, 1, 8, - 

1,8,1,1,8 
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1710 DATA "ENR. CORE COOLING FAILURE", 2, 7, 6, 4, 5, 5, 4, 2, 1, -i, i, 1, - 

1,8,8,-1,1,-1 

1728 DATA "PUMP POHER FAILURE", 4, 7, 6, 2, 5, 5, 1, 2, 4, -1, 1, 1, -L 8, 8, - 

1,-1,-1 

1738 DATA "VERY HIGH RADIATION LEVEL!! ",3,7, 6, 4, 5, 5, 6, 5, 4, -1,1,1 

,-1,8,8,1,1,-1 

1748 DATA "VERV HIGH RADIATION LEVEL ! ! ", 2, 8, 7, 3, 5, 5, 7, 6, 3, -L 1, 1 

,-L 8,8, 1,1,-1 

1758 DATA "HIGH TURBINE SPEED ! ", 6, 4, 4, 7, 5, 5, 7, 1, 6, 1, 8, 8, 1, 8, 8, 1, 

8,1 

1768 DATA "VERV HIGH TURBINE SPEED ! ! ", 6, 4, 4, 8, 5, 5, 8, 1, 6, 1, 8, 8, 1, 

8,8,1,8,1 

1778 DATA "NATER PUMP FALURE ! ", 4, 7, 6, 1, 5, 5, 1, 3, 4, -1, L i, 8, 8, 8, 8, 

1,-1 

1788 REM * COMMAND SUBROUTINE * 

1798 IF CM$="V"THEN 1898 

1888 IF CM*="C"THEN 2818 

1818 IF CM$="E"THEN 2488 

1828 IF CM$="P"THEN 2688 
1838 IF CM*="S"THEN 2858 
1848 IF CW$="0"THEN 2978 
1858 IF CH$="T"THEN3888. 

1868 IF CM*="I" THEN 3288 
1878 RETURN 




1888 REM * LET OUT HATER, COMMAND 'V * 

1898 PRINT 967, "HON FAR WOULD VOU LIKE TO OPEN VOUR RUN OFF VA 
LVE <2-8)?"i : H1*=INKEV$ : IF Hi*="" THEN 1898 ELSE H1=VAL(H1$) 
1988 IF HI > 8 OR Wl < 2 THEN PRINT 967, "INVALID! ! 

"i : FOR DL=1 TO 1000 : NEXT 
DL : GOTO 1898 

1918 REM * ADJUST ALL METERS IN PROPORTION TO HON FAR 
VALVE IS OPEN * 
1928 D1=D1-MI 
1930 D2=INT<D2+MI/3) 

1940 D3=D2rl 
1950 D4=D1-1 
I960 D7=INT(D7-MI/3) 
1978 D8=INT<D8+MI/4) 
1988 D9=INT(D9-Ml/3) 
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1998 RETURN 

2888 REM * RAISE OR LOWER CONTROL RODS, COMMAND 'C * 

2818 PRINT § 967, "ENTER fl '-' TO LOWER CONTROL RODS, fl ■'+' TO Rfl 

ISE THEM "; : DF*=INKEY* : IF DF$='"' THEN 2818 

2020 PRINT § 967, "ENTER AMOUNT YOU WOULD LIKE TO RAISE OR LOWER 

THEM "j 

2020 FD$=INKEY* : IF FD$="" THEN 2030 ELSE CR$=DF*+FD* : CR=VAL< 

CR$> 

2840 REM * IF A '-' ENTERED THEN GOTO TO ROUTINE TO LOWER 

THEM * 

2850 IF SGN(CR)=-1 THEN 2150 

2060 REM * ADJUST METERS * 

2070 D6=D6-CR*2 

2880 D2=INT(D2+CR) 

2090 D3=D2-i 

2100 D4=D4+CR*2 

2110 D7=D7+CR*2 

2120 D8=INT(D8+CR> 

2130 GOTO 2220 

2140 REM * ADJUST METERS FOR LOWERING THEM * 

2150 D6=D6+A8S(CR*2> 

2160 D2=INT<D2-ABS<CR)> 

2178 D3=D2+1 

2180 D4=D4-ABS(CR>*2 

2190 D7=D7-ABS(CR>*2 

2200 D8=INKD8-ABS(CR» 

2210 REM * GRAPHICALLY DISPLAY CONTROL ROD POSTIONS * 
2220 CLS : PRINT TAB<17>" CURRENT CONTROL ROD POSTIONS"; 
2230 FOR Y=3 TO 46 : SET(6, Y) : SET<121, Y) : NEXT Y 
2240 FOR X=6 TO 121 : SET<X,46) : NEXT X 
2250 SC=0 : PR=0 

2260 FOR DS=64 TO 960 STEP 128 : SC=SC+1 : PRINT DS, SC; : NEXT 
DS 
2270 IF D6/2 < THEN D6=0 
2288 IF D6/2 > 9 THEN D6=18 

2298 ON D6/2 GOTO 2388,2318,2328,2330,2340,2350,2360,2370,2388 
2380 MS=0 : GOTO 2390 
2310 MS=2 : GOTO 2390 
2320 MS=4 : GOTO 2390 
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2338 MS=6 . GOTO 2398 
2348 MS=8 : GOTO 2398 
2358 MS=18 : GOTO 2398 
2368 MS=12 : GOTO 2398 
2378 MS=14 : GOTO 2398 
2388 MS=14 : GOTO 2398 
2398 BL$=CHR*(191) 
2488 REM * DRAW CONTROL RODS * 

2418 FOR RP=8 TO MS : PR=PR+64 : IF RP=8 T>CN PR=PR-64 
2428 PRINT § 78+PR,BL*; : PRINT 8 79+PR,BL$; : PRINT 8 82+PR,BL$ 
; : PRINT 8 83+PR,BL$; : PRINT 8 86+PR,BL$; : PRINT 8 87+PR,BL$; 
: PRINT 8 98+PR,BL$; : PRINT 8 91+PR,BL$; : PRINT 8 94+PR,BL$i 

: PRINT 8 95+PR, BL$; 

2438 PRINT 8 98+PR,BL$; : PRINT 8 99+PR,BL$; : PRINT 8 162+PR,BL 
*; : PRINT 8 183+PR,BL$; : PRINT 8 166+PR,BL$; : PRINT 8 187+PR, 
BL$; : PRINT 8 U8+PR,BL$; : PRINT 8 lli+PR,BL$; : NEXT RP 
2448 FOR DL=1 TO 1234 : NEXT DL 

2458 Y*="" : IF D6/2 > 9 THEN D6=18 ELSE IF D6/2 < 1 THEN D6=2 
2468 GS=1 : GOSUB 648 : RETURN 
2478 REM * CORE COOLINE, COMMAND 'E' * 

2488 PRINT 8 967, "HOW MUCH COOLANT WOULD YOU LIKE TO ENTER THE C 
ORE? "i : CL*=INKEY* : IF CL*="" THEN 2488 ELSE CL=VAL(CL$> 
2498 IF D9-CL <=8 THEN PRINT 8 967, "YOU DON'T HRVE ENOUGH COOLflN 
T "i : FOR DL=1 TO 1868 : NEXT DL : GOTO 24 

88 

2588 REM * ADJUST METERS * V 
2518 D9=D9-CL 
2528 Dl=Di+3 
2538 D2=INT(D2-CL/2) 
2548 D3=D2-2 
2558 D4=D1-1 
2568 D7=lNT<D?+CL/3> 
2578 D8=INT(D8-D2/2> 
2588 RETURN 

2598 REM * ADD OR REMOVE FUEL, USED TO ADJUST CRITICAL MASS, 
COMMAND '?' * 

2688 PRINT 8 967, "HOW MANY FUEL UNITS WOULD YOU LIKE TO REMOVE, 
OR ENTER "i : FOR DL=1 TO 232 : NEXT DL 

2618 PRINT 8 967, "ENTER A '-' TO REMOVE FUEL, AND A '+' TO ADD F 
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UEL "i : FOR DL=1 TO 232 : NEXT DL 

2628 PRINT § 967, "EACH UNIT WILL INCREASE OR DECREASE CRITICAL M 
ASS BY 1/2"; : FOR DL=1 TO 232 : NEXT DL 
2638 PRINT 967, "ENTER THE SIGN, THEN THE #- <l-9) 
tt ; : XC*=INKEY$ : IF XC$="" THEN 2630 

2640 CX$=INKEY$ : IF CX$="" THEN 2646 ELSE UR$=XC$+CX$ : UR=VAL< 
UR$> 

2650 REM * IF '-' GOTO ROUTINE TO REMOVE FUEL * 

2660 IF SGN(UR)=-1 THEN 2770 

2678 REM * TEST FOR TO MUCH ADDED * 

2680 IF INTCD5+UR/2) > 17 THEN PRINT 967, *VOU CAN'T ENTER THAT 

MUCH "i : FOR DL=1 TO 1080 : NEXT 

DL : GOTO 2600 
2690 REM * ADJUST METERS * 
2700 D5=INT<D5+UR/2> 
2710 D2=INT(D2-UR/2) 
2720 D3=D2-2 
2730 D4=INT(D4-UR/2> 
2740 D7=INT(D7-UR/2) 
2750 D8=INT(D2/2) 
2768 RETURN 

2770 D5=INT(D5-ABS(UR)) 
2780 D2=INT(D2-ABS(UR» 

2790 D3=D2-2 
2800 D4=INT<D4-ABS<UR» 
2810 D7=INT(D7-ABS(UR>) 
2820 D8=INT(D2/2) 
2830 RETURN 

2840 REM * LOWER CONTROL RODS - SCRAM, COMMAND 'S' * 
2850 PRINT § 967, "VERIFY REACTOR SCRAM? 

"j : VR$=INKEV$ : IF VR$="" THEN 2850 ELSE IF VR$ O " 
V" THEN RETURN 
2860 REM * ADJUST METERS * 
2870 D1=D1+1 
2880 D2=D2-5 
2890 D3=D3-4 
2900 D4=D4+3 
2910 D6=18 
2920 D7=D7+3 
2938 D8=INT(D8-D2/2) 
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2948 D9=D9+1 


2958 RETURN 


2960 REH * FLOOD CORE WITH HATER, COMMAND '0' * 


2978 PRINT § 967, "HON MUCH WATER WOULD YOU LIKE TO IN THE CORE ( 


1-9)? "; : HV$=INKEY$ : IF MV$=" B THEN 2970 ELSE NV=VAL<MV$) 


2980 REN * ADJUST METERS * 


2990 Dl=INT<Dl+MV/2> 


3080 D2=INT<D2-MV/3> 


3810 D3=D2-2 


3820 D4=Dl-2 


3030 D7=INT(D4/2>+2 


3640 D8=INT(D2/2) 


3050 D9=INT<D9+MV/3> 


3066 RETURN 


3078 REM * CHANGE TURBINES SPEED, COMMAND 'V * 


3080 PRINT 8 962, "WHAT '/. OF TOTAL TURBINEE SPEED "WOULD YOU LIKE 


9=982 .. . "; : TS*=INKEY* : IF TS$="" THEN 3088 ELSE TS=VAL(TS$> 


3898 REM * ADJUST METERS * 


3180 TT=TS*. 81 


3118 D7=INT(D7*TT) 


3128 Dl=D4-3 


3130 IF D4 <18 THEN D2=D2+4 ELSE D2=D2-4 


3146 D3=D2-3 


3158 D4=INT(D4+nV2> 


3168 D8=INT<D2/2> 


3178 D9=D9+3 


3180 PRINT 9 962, " "; : RETURN 


3198 REM * PRINT INSTRUCTIONS, COMMAND 'V * 


3288 CLS : PRINT : PRINT : SG=2 : GOSUB 378 : GS=1 : GOSUB 648 : 


RETURN 


3216 REM * VOU LOSE * 


3226 CLS : PRINT : PRINT : PRINT CHRK23) 


3238 PRINT : PRINT : PRINT : PRINT 


3246 PRINT" DANGER - DANGER - DANGER" 


3256 FOR X=i TO 3232 : NEXT X 


3268 CLS : PRINT : PRINT : PRINT- 


3276 PRINT" THE REACTOR TEMPERATURE HAS REACHED AN tiNCONTROLLAB 


LE POINT-" 


3286 PRINFYOU HAVE FAILED YOUR MISSION - STAND BY --" 
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3298 PRINT"I, THE TRS-80 COMPUTER SYSTEM, AM NOW STARTING THE" 

3388 PRINT"NUCLEAR DISftSTOR LOG — YOU HflVE fiPROXIMENTfiLLY" 

3318 PRINT"3 1/2 HOURS TO CLEAR ALL PEOPLE WITHIN A 286 MILE" 

3328 PRINT-RADIUS OF THIS PLANT BEFORE THE CORE COMPLETELY" 

3338 PRINT"MELTS THROUGH THE REACTOR CORE BUILDING AND CAUSES" 

3348 PRINT"A MASSIVE RELEASE OF RADIATION - SO LONG, GOOD BY -" 

3358 PRINT" BY THE HAY — YOUR FIRED! * * * * " 

3368 INPUT"NOULD YOU LIKE TO PLAY AGAIN"; PL$ : IF LEFT$<PL«, 1)=" 

Y" THEN RUN 68 ELSE 3490 

3370 REM * YOU WIN * 

3380 CLS : PRINT : PRINT : PRINT 

3390 R*="EVENT OVER- EVENT DURATION:" 

3488 X=l : TN$=STR*<TH> 

3410 B$=HID$<ftt,X,l> : PRINT B$; : FOR DL=1 TO 32 : NEXT DL : X= 

X+l : IF X < 29 THEN 3410 ELSE FOR ~T=1 TO LEN<TM$) : T2$=MID$(TM 

$,T,1> : PRINT T2$; : FOR DL=1 TO 5? : NEXT DL : NEXT T : PRINT 

: PRINT 

3420 FOR Y=0 TO 72 : SET<Y,12) : FOR DL=1 TO 23 : NEXT DL :■ NEXT 

Y 

3430 FOR DL=1 TO 323 : NEXT DL 

3440 PRINT" YOU HAVE DONE IT! ! THE REACTOR IS UNDER CONTROL!" 
3450 PRINT"AND IT ONLY TOOK YOU"; TM; "SECONDS - GOOD WORK!" 
3460 PRINT" I AM GOING TO HAVE A TALK WITH THE NUCLEAR REGULATORY 

il 

3470 PRINT"COMMISSION ABOUT A CHRISTMAS BONUS FOR YOU!!, YOU DES 

ERVE" 

3480 PRINT" IT!! SO LONG, GOOD BYE!!" : INPUFWOULD YOU LIKE TO P 

LAY AGAIN"; PL* : IF LEFT$(PL$, 1>="Y" THEN RUN 60 

3490 END , __ 



Histograph/Sccittergrcim 

by Gary S. Breschini 

Histograph constructs a five- to Scattergram plots XY infor- 

fourteen-element bar graph, mation for visual analysis of 

User specif ies the range of data trends. Extensive documen- 

and number of bars in graph; tation. 

program sets upper and lower Leve! M 16K $9 95 

response limits for each bar ' 

element. Graph composed in TRI-80 Software EHChange 
real time as oata is entered. 17 Briar cmh Drive MMiord. N«wHampsMr« 03055 
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REWARD 

$50 




"BADLANDS GANG" 

Reward for the capture, dead or alive, of any and all 
members of the notorious "Badlands Gang". 
Wanted for stagecoach holdup, train robbery and 
shooting three clowns, four ducks, and a flying arrow 
APPROACH WITH CAUTION! 



WANTED: DEAD OR ALIVE! 



lb 




A flying arrow? That's right. 

With SHOOTING GALLERY you can prove, once and 

for all, who is the fastest gunslinger in town! 



by Frank B. Rowlelt 



So, you're a crack shot who draws a 
bead with deadly accuracy? Well, you 
might not get your name on a poster, 
but you will be able to prove who's got 
the coolest, steadiest hand in town 
(and rid yourself of repressed hostili- 
ties at the same time). 

Shooting gallery is modeled after 



the carnival and arcade games where a 
nickel once bought you ten shots at an 

assortment of animated targets. These 
days, the carnivals seem to charge half 
a dollar, which means that the savings 
from a few games played on your 
TRS-80 should go a long way toward 
paying for that new disk drive! I 
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'SHOOTING GflLLERY' 
COPYRIGHT 1979 BY FRflNK B. ROHLETL JR 
28 CLEHR2000 : DEFSTRD :DEFINTX-Z : RftNDOH 
30 6OSUB500 

40 DC(0)=" "+CHR$(183)+CHR$<187)+CHR$(143)+CHR$<183)+CHR$(18 
7)+" ":DC<1>=" "+CHR$(191)+CHR*(178)+CHR$(179)+CHR*<177 
)+CHR$<191>+" " : DC<2)=DC<0)+DC(0)+DC<6)+DC(0)+DC(0) : DC(3>=D 
C(1)+DC(1)+DC(1)+DC(1)+DC(1) 

58 DD(0)= u "+CHR$(180)+" B +CHR$<175)+CHR$<159>+CHR$<140>+" 
" :DD(1)=" "+CHR$<139>+STRIN6$<4, CHR$<191»+CHR*<159>+" 
" :DD<2)=DD(0)+DD(0)+DD(0)+D1>(0)+DO<0) :DD(3)=DD(1)+DD(1)+DD(1) 
+DD(1)+DD<1> : DT="-100~>" 

60 DP<0)=CHR$(171)+" H :DP(1)=DP(0)+DP(0>+DP(0)+DP<0)+W > (0) 
+DP<0)+DP<0>+DP<0> :DS(0)="* " :DS<1)=DS<0)+DS<0)+DS(8)+DS(0 
)+DS(0>+DS(0>+DS(0)+DS<0)+DS(0) 
70 REM 

* INITIALIZE PROGRflM * 

80 as : D0=CHR$(188)+CHR$(191) : D1=CHR$<140)+CHR$<143) : D2=D1+D1+D1 
+D1+D1+D1+D1+D1+D1 :D3=CHR$(143)+CHR$<131) :D4=STRING*(2, CHR$(191) 
) 

90 PRINT00, DO; D2; DO; Dli Q2; DO; D2; DO; D4; " "; STRING$<3, CHR$<143»; 
"; STRING$<3, CHR$<143) ); " "; D4; " SHOOTING GflLLERY "; D 
4;° ";STRING$(3,CHR$<143)>;" ";STRING$<3,CHR$<143»; " " 
; D4 : FORX=128T0198STEP2 : PRINT0X, D3; : NEXTX 
106 PRINT0832, STRINGK8, CHR$<191»; STRING$(18, CHR$<143>>; STRING* 

<15, CHR$(191)); STRING$<15, CHR$(143)>; STRING$<16, CHR*<191>>; " SH 
OTS LEFT: 28 ";STRING*<15,CHR$<191)); " SCORE: ";STRING$< 
8,CHR$<191»; 

HO PRINT0640,STRING$<64,CHR*<131»; :PRINT§960> "OO STRRS = 50 
PIPES = 25 DOCKS = 15 CLOWNS = 10 <X>"; 

128 YB=20 : YS=0 : XC=16 : XD=16 : XS=1 : XP=1 : D4=STRING$<2, CHR$(143> ) : 2=3 

51:YB=0 

130 REH 

* STftRT GfiME * 

148 GOSUB260:FORX=0TO3:IFPOINT(28,3)THENPRINTe74,"O n ; :PRINT0116 
, D4; ELSEPRINT074,D4; :PRINTtllfe "O"; 

150 IFYB=0THENIFPEEK<14656)=lTHEN30ELSEPRINTe348," "; :FORYS= 

0TO20 : NEXTYS : PRINT8348, "ENTER"; 

160 GOSUB290: IFX=0ORX=2THENDC<2)=«ID$(DC<0), XC, 1>+LEFT$<DC<2>, 79 



28 



) : DCG>=MID$<DC<i>, XC, i>+LEFT*<DCG>, 79) : XC=XC-1 : IFXC=0THENXC=16 

178 PRINT0mRIGHT$(DCX2>,64>;RIGHT*<DCG>,64>; :60SU8268 

188 GOSUB290:DD<2)=MID*<DD<0>, XD, 1)+LEFT$<DD<2>, 79) :DDG)=MID*CD 

D<1), XD, 1>+IEFT$<DDG>, 79) : XD=XD-1 : IFXD=0THENXD=16 

198 PRINT8784,RIGHT$(DD(2)»64)iRIQHT*(DDG),64); :G0SUB268 

289 G0SUB298: IFX03THENDP<1>=RIGHT$<DP<1), 63>+NID$<DP<0>, XP, 1) :X 

P=XP+1:1FXP=9THENXP=1 

210 PRINT§576,DP<l>i:GOSUB260 

228 G0SUB298 : DSQ>=R1GHT$(DS<1), 63>+MID$<DS<0>, XS, 1) : XS=XS+1 :PRI 

NT0256, DSC1); : IFXS=9THENXS=1 

238G0SUB268 

248 NEXTX-.QOT0148 

258 REM 

* PRINT SIGHT AND BfiCKGROUND * 

268 GOSUB578:IFPEEK(15360+Z)O43THENVL=PEEK<15368+Z):PRINT8Z, "+" 

i:RETURN 

270 PRINT0Z,CHR*<YL>;: RETURN 

288 REH 

* MOVE SIGHT AND SEE IF GUN FIRED * 

298 G0SUB268 : IFPEEK(15360+2)=42THENPRINTeZ, CHR$<YL)i 

308 DB=INKEY*:IFDB=" "THEN378ELSEY=PEEK(14656) : IFV>127THENV=V-12 

8 

318 IFY>32THENV=V-64:ZL=flBS(Z/64):IFZ-ZL*64<63THEN2=Z+l 

328 IFV>16THENV=Y-32:ZL=flBS(Z/64>:IFZ-ZL*64>0THENZ=Z-l 

338 IFY>8THENY=Y-16:IFZ<768THENZ=Z+64 
348 IFY>4THENIFZ>255THENZ=Z-64 
358 RETURN 
360 REM 

* SHOOT THE GUN * 

378 IFYB=8THENRETU$€LSEPRINT0348, "BfiNG! ! !"; :ZL=flBS«Z-192)/64): 
ZS=Z-(ZL*64)-191 : ONZLGOTO480, 388, 418, 410, 380, 428, 398, 438, 440 

388 IFYLO32THENYS=YS+100:PRINT0192+ZL*64,CHR$(30>J :Yfl=8 

398 VB=VB-1:PRINT091?,YB; :PRINT§945,YS; :PRINT0348,CHR*G0>; :IFYB t 

=0THENPRINT033i, "GflME OVER, HOLD "; CHR$G4)i "ENTER"; CHR$G4); " D 

OWN TO PLftV ftGfllN"; -.RETURNELSERETURN 

408 IFMID$(DS(i),ZS,l)="*"THENDS<l)=LEFT*<DS(l>,ZS-l)+" "+RIGHT* 

(DS(1), 64-ZS) :PRINT8256, DSC1); :<&=YS+50:6OTO390ELSE390 

418 IFMID$(DC(2),ZS+16,1>=" "THEN398ELSEYS=YS+18:DT<8>=DC<2>:DT< 

1)=DC<3> :GOSUB478:DC(2)=DT(8) :DC<3)=DT<1) :PRINT0384, RIGHT$(DC<2> 
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,64>;RI6HT$<DC(3>,64>;:GOT0398 

428 IFMID*<DP<l),ZS,i>=" •THEN390ELSEDP(l>=LEFT$(DP(l)iZS-l)+" " 

+RIGHT*<DPCl>,64-ZS>:PRINT8576,DP(l>i :YS=YS+25:G0T0398 

438 IFMID*(DD(2),ZS+16,1>=" "THEN398ELSE458 

448 IFMID$(DD(3),ZS+16,1>=" "THEN39B 

458 YS=YS+15:DT(8>=DD(2) :DT<1>=DD(3> :G0SUB478:DD(2>=DT(8> :DD(3>= 

DT(1) :PRINT8784, RIGHT*(DD(2>, 64); RIGHT*(DD(3>, 64); :G0T0398 

468 REM 

* BLANK OUT OBJECT IN STRING * 

•4?8 IFZS>55THEN488ELSEF0RXX=8T01 : DT(XX>=LEFT$(DT(XX>, ZS+9)+STRIN 

G*(13, " ">+RIGHT$(DT(XX>,58-ZS):NEXTXX:RETURN 

486 FORXX=8T01:DT(XX)=LEFT$(DT(XX),78>+STRING*(18," ">:NEXTXX:RE 

TURN 

498 REH 

* SEE IF THEV WANT INSTRUCTIONS * 

588 CLS:DB="N":PRINT824, "SHOOTING GALLERY" :PRINT8147, "DO VOU HflN 
T INSTRUCTIONS"; :INPUTDB:IFflSC<DB)089THENRETURNELSEPRINT864,CHR 
$(31); 
518 REM 

* PRINT OUT INSTRUCTIONS * 

528 PRINT8128, "YOU RIM AND SHOOT RT THE MOVING TARGETS ON THE SC 
REEN. THE GUN SIGHT IS THE BLINKING +. YOU CRN MOVE IT RIGHT U 
ITH THE ";CHR*(94>;" KEY, LEFT WITH THE ";CHR*(93>;" KEY, UP NIT 
H THE [KEY AND DO* WITH THE ";CHR$(92>; " KEY. " 
538 PRINT"HOLDING THESE KEYS-DOWN CONTINUES MOVING THE SIGHT, RN 
D RNY":PRINT"COMBINRTION OF THESE KEYS CRN BE PRESSED RT ONE TIM 
E. ":PRINT8512,"Y0U CAN SHOOT THE GUN BY PRESSING THE SPACE BAR- 
ONE SHOT FOR": 

548 PRINT"EACH TIME YOU PRESS IT. IF THE SIGHT IS ON A TARGET N 
HEN YOU" :PRINT"SHOOT, THE TARGET DISAPPEARS AND YOU GET THE SCOR 
E VALUE OF":PRINT"THAT TARGET ADDED TO YOUR SCORE. YOU HAVE 28 
SHOTS. ":PRINT8832, "-GOOD SHOOTING!" 

558 PRINT8977, "(PRESS ";CHR$(34>; "ENTER"; CHR$(34); " TO BEGIN GAM 
E>"; :INPUTDB: RETURN 
568 REM 

* HANDLE 188 POINT ARROW * 

578 IFYA=lTHEN59eeLSEIFRND(99X>56THENRETURN 
588 YA=l:Y0=RND(3):YG=-2 
598 YG=YG+2:0NYOG0T0618,628 
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688 YT=512:G0T0638 
610 VT=192:G0T0628 
628YT=328 

638 PRINT0YLCHR$(38); :IFYG=58THEHYft=8:RE7URN:ElSfPRlNT8VT*VG,DT 
;:RETURN 



DISK DRIVES 
Now in Stock 



The TRS-80 Software Exchange is pleased to 
offer single and dual Percom Disk Drives for 
your TRS-80. These are reliable, high quality 
drives, fully compatible with the TRS-80 and 
Radio Shack's drives. 



Enjoy these advantages: 

Fast access time 

110K/40 tracks vs. Radio 

Shack's 89K/35 tracks 

Lower cost — save $100 over 

comparable units 

Available NOW! 
Single Drive $399.00 
Dual Drive $799.00 

Cable (required) - $29.95 



NOTE: All disks require TRSDOS software, available only from Radio Shack 
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TRI-80 Software CKchonoe 

17 BRIAR CUFF DRIVE 
MILFORD, NEW HAMPSHIRE 03055 




It's Back to School Time! 



If you're heading back to school, or work, 

this fall, you probably have often 

thought that it would be a lot easier 

if you didn't have to "hunt and 

peck" at the typewriter or 

computer keyboard. If you 

could only double your typing 

speed, the job would be done 

in half the time! And, with 

increased speed and confidence 

comes increased accuracy. 



TYPING TUTOR 



by 80 US 

Typing Tutor is a set of programs designed to teach you touch 
typing — from the basics of learning where the keys are, to 
practice drills at speeds that would make a Selectric shudder! Each 
lesson is displayed on the screen, including, at the early stages, a 
keyboard diagram. You are quizzed and graded, and you progress 
at your own pace. When you have mastered a lesson, the computer 
advances to the next, using CAI (computer aided instruction). 
Progress is fast, painless, and even fun as you keep pushing to 
break your own record. 

So, whether you're going back to school or just want to enter 
programs from SoftSide that much faster, Typing Tutor can help. 

Order a copy today and be a better typist by next week. 



Level 1 1, 16K — $19.95 
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TRf-80 Software Exchange 

17 Briar Cliff Drive Milford, New Hampshire 03055 
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_5oft5i3e. Presents: 

A Page from The BASIC Handbook by David A. Lien 




The VAL function is used to convert numbers which are 
written as strings, back into numeric notation. VAL has 
the effect of stripping off the strings or dollar sign. 

For example: 

10 A$="35" 

20 PRINT VAL(AS) 

prints the number 35 as a numeric value. Function 



TEST PROGRAM 

10 REM 'VAL' TEST PROGRAM 

20 A$="45.12" 

30 A=VAU(A$) 

40 PRINT "IF THE STRING ";A$;" IS CONVERTED TO THE NUMBER";A 

50 PRINT "THEN THE VAL FUNCTION PASSED THE TEST." 

99 END 



SAMPLE RUN 



I F THE STRING 4S.1 2 IS CONVERTED TO THE NUMBER 45.1 2 
THEN THE VAL FUNCTION PASSED THE TEST. 



VARIATIONS IN USAGE 

Some computers (e.g. the TRS-80 Level II and other Microsoft variations) allow the use 
of combinations of numbers and letters with the VAL function, but the numbers must 
precede the letters. If they don't, the VAL function produces a indicating it did not 
find a number as the first character. 

For example, print valC'izsabc") prints the number 123. 
TEST PROGRAM 

10 REM 'VAL WITH MIXED STRING' TEST PROGRAM 

20 A$="12 O'CLOCK" 

30 A=VAL(AS) 

40 PRINT "IF THE STRING ";A$;" IS CONVERTED TO THE NUMB^R'-.A 

50 PRINT "THE VAL FUNCTION ACCEPTED NUMBERS MIXED WITH LETTERS." 

99 END 



ffonrinted bv Special Permission ; 




Lance Micklus' 
ST80-the Smart 
Terminal Program- 
just got SMARTER! ! 



ST80D contains extensions for disk 
drive systems to exchange files with a 
timesharing computer or another TRS-80. 



USING ST80D, your TRS-80 can do all this and more: 

Gather and pre-format data, store it on disk, then 
transmit it to a timesharing computer for processing. 
Processed data from the timesharing computer can 
then be sent back to the TRS-80. 

One TRS-80 can generate a data base and share it with 
another TRS-80 thousands of miles away by telephone. 

Users may customize their terminal program by 
redefining the translation tables. Conversion from one 
set of tables to another takes only seconds. 

Auto logon feature sends your account name, number 
and password upon request. 

ST80D can transmit any type of TRS-80 ASCII file, 
including BASIC programs stored in ASCII format, and 
most BASIC data files. Binary files can also be 
transmitted from one TRS-80 to another, allowing even 
machine language programs to be sent over the phone. 



ST80D is a practical, full -feature terminal program that 
has been used on a variety of timesharing systems. 

These include IBM 370, Honeywell Sigma/6, Harris/7, 
DECSYSTEM 20, Dartmouth Timesharing, CDC Cyber 
and HP 2000. 

If you're looking for a professional quality product, 
not an amateur program, then order ST80D today! 



For32K 
disk systems 
$79.95 




T|£ TIU-80 Software Exchange 
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by Art Canf il 




A Single-player Game 
Based on the China Trade of the 1800's 

Ply arms and opium in exotic oriental ports, dodging pirates, 
cutthroats, usurious moneylenders and tropical storms. Should you 
arm your ship to stand and fight, or keep it light to run swiftly? Will 
the price of opium still be high in Hong Kong when you return 
laden with the stuff from Batavia? Warning: If you get a polite 
message from Brother Wu, the moneylender or Li Yuen, the pirate, 
you'd better pay attention! If you outwit your enemies, you win by 
piling up a million dollars in profits. 
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Level II, 16K - $9.95 

TRS-SO Sof luiciie exchange 



17 BRIAR CLIFF DRIVE MILFORD, NEW HAMPSHIRE 03055 
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tOR^BOOk 



by Otto Hansen 

Here is an ideal introduction to the computer for young children of 
preschool age through about second grade. This imaginative 
program allows the kids to enter the story and become part of an 
exciting adventure. 

For very young children, best results are obtained when parents 
read with them, inviting their comments and participation by, for 
instance, supplying sound effects. Older children can enhance their 
reading ability with the practice afforded by the ever-changing nature 
of the stories (which make "rote" reading impossible). 

The program asks the child's name and age, the names of his/her 
best friends, the best-loved pet, the least-liked wild animal, the 
favorite color and number, etc.; and weaves all of this information 
into an individualized story which may feature rambling roadways or 
winding trails, rolling plains, caves or a desert full of cactuses, pearly 
shells or golden bricks — as the "storyteller" chooses. 

Just as with all good children's stories, dangers are survived, 
obstacles overcome, and the friends always arrive back home 
unharmed, laden with riches such as lollipops and gumdrops. The 
ending is happy, and the inexhaustible storyteller will go right on to a 
new adventure, never short of patience, time or inventiveness, if the 
child asks. 

The speed of presentation is controllable for various levels of 
reading comprehension. Graphics are used for illustration and 
animation. And, best of all, your child can spend some time away 
from the television learning to read and becoming comfortable with 
the computer at the same time! 
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18 CLS:PRINTCHR$(23>:PRINT0460,'S T R V - BO K":V1=2808:GO 

SUB2758 

28 Vi=256 

38 DEFSTRft-J 

48 CLEAR1888 

50 CLS 

€8 INPUT"HHflT IS VOUR FIRST NAME";AI 

78 INPUT"HHAT IS THE NAME OF VOUR BEST FRIEND"; All 

88 INPUT'NAME SOMEBODY ELSE THAT YOU LIKE";A2$ 

98 INPUT"NMC ONE MORE FRIEND ";AX$ 

188 INPUT M YOUR FAVORITE COLOR"; A3* 

118 INPUT"AND WHAT IS YOUR LUCKY NUMBER (LESS THAN 58>";A4$ 

128 INPUT"HHAT IS VOUR FAVORITE PET";A5$ 

138 INPUTHHAT IS VOUR FAVORITE MILD ANIMAL"; A6* 

148 INPUT'NAME ONE VOU DON'T LIKE";A8* 

158 INPUTTYPE A '1' IF VOU ARE A GIRL A '2' IF A BOV";M 

168 INPUT"HOW OLD ARE V0U";M4 

178M2=6 

188 CLS 

198 PRINT"ARE VOU A FAST READER (TYPE '1')" 

288 PRINPAN AVERAGE READER (TYPE '2')". 

218 PRINT"A SLOW READER (TYPE '3')" 

228 PRINT'A VERY SLOW READER (TYPE '4')" 

238 INPUTVl 

248 0NV1G0SUB258, 268, 278, 288 : G0T0298 



258 Vl=1080 
268 Vl=2000 
270 Vl=4080 
280 Vl=8880 



rRETURN 

: RETURN 

: RETURN 

: RETURN 
298 M1=RND(M2) 

388 0NM1G0SUB318, 328, 338, 348, 358, 368 : G0T0378 
318 AA*="ONCE UPON A TIME ":RETURN 
328 AA$="IT IS TOLD IN SECRET WHISPERS ":RETURN 
338 flfi*="IN TIMES OF LONG AGO ":RETURN 
340 AA*="NOT TO DISTANT IN THE PAST ":RETURN 
350 AA$="IN ANCIENT TIMES OF OLD " : RETURN 
360 AA*="WAY BACK IN HISTORICAL WRITINGS ":RETURN 
370 M1=RND(M2) 
380 ONM16OSUB390, 480, 410, 420, 430, 440 : GOTO450 

390 AB$="RAN AWAY FORM HOME ON ":RETURN 
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486 AB$="HAS WHISKED AWAY FROM HIS HOUSE ON ": RETURN 

418 AB$="DECIDED TO LEAVE HOME FOR RN ADVENTURE ON ": RETURN 

420 RB$="LEFT HOT1E AFTER SUPPER ON ": RETURN 

426 AB*="LEFT HOME IN THE DEEP OF NIGHT ON " : RETURN 

446 A6$="SLIPPED AWAY INTO THE DARK ON ": RETURN 

458 M1=RND<M2> 

468 0NM1G0SUB476,488,496,588,518,528:G0TQ528 

470 B$="BEAUTIFUL ".RETURN 

488 B$="PRETTY ": RETURN 

496 B$="DELICATE ": RETURN 

588 B$="SENSITVE ".RETURN 

518 B$="LOVELY ".RETURN 

528 B$="FANTASTIC": RETURN 

528 H1=RND<M2> 

548 IFM=1G0T0628 

558 0NMlG0SUB568,578,588,59e,686,6i6:G0T0628 

560 B$="WATURE ".RETURN 

570 B$="HANDSOME ":RETURN 

580 6$="NICE LOOKING ": RETURN 

598 B$="SMART ":RETURN 

688 B$="FANTASTIC ".RETURN 

618 B*="PRACTICAL ":RETURN 

628 Wl=RND<rC> 

628 0NM1G0SUB648, 656, 668, 678, 688, 698 : G0T0788 

648 C$="YOUNG ": RETURN 

658 C$="YOUTHFUL ": RETURN 

668 C$="LITTLE ".RETURN 

678 C*="WHIPPERSNAPPER OF A ": RETURN 

688 C*="PUNKY ": RETURN 

698 C$= "FUN-LOVING ": RETURN 

788 M1=RND(M2> 

718 0NM1G0SUB728, 728, 748, 758, 768, 778 : G0T01878 

726 D$="A MAGIC CARPET ":F1$=0«$(128>+CHR$(182)+CHR$<179)+CHR$( 

179>+CHR$(187) : RETURN 

726 D$="THE BACK OF A HINGED WHITE HORSE ":F1$=CHR$(128)+CHR$(12 

1)+CHR$<151)+CHR$(171)+CHR$(129):RETURN 

748 D$="A GOLDEN CHARIOT ":F1*=CHR*(128)+CHR*(126)+CHR*<175)+Ct« 

$(122): RETURN 

758 D*="A FLUFFY DREAM-LIKE CLOUD ":Fl$=Ct**C128>+CHR$<i91>+CHRI 

(191):RETURN 
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768 D$="NAGIC ROLLER-SKATES ":F1$=CHR$<128>+CHR*<172)+CHR$<148>+ 

CHR$(148)+CHR$<156> : RETURN 

778 D$="A FLEETING BREEZE ":F1$=CHR$<128)+CHR$<148>+CHR*<162>+CH 

Rf <179)+CHR$<166)+CHR$<166>+CHR*<187> : RETURN 

788 H1=RND<M2> 

798 ONM16OSUB800, 818, 828, 838, 848, 858 : Q0T0868 

898 AC*=" WHICH TRANSPORTED THEN TO A": RETURN 

818 AC$="HHICH DELIVERED THEM POST HASTE TO fl": RETURN 

828 AC$=" WHICH WHIPPED THEM OFF TO A": RETURN 

838 AC$=" HHICH CARRIED THEM AWAY TO A":RETURN 

848 AC$=" HHICH FLEETEDLV FLEW THEM TO A": RETURN 

858 AC$=" WHICH DEPOSTED THEM QUICKLY TO A": RETURN 

868 H1=RND<H2> 

878 0NM1GOSUB888, 898, 988, 918, 928, 938 : G0T0948 

888 Ato=" CftVE":F2$=STRINGI(63,CHR$<191)):F3$=STRING$<38,CHR$<19 

i»+STRINGS<4, CHR$<128»+STRING$<29, CHR*<191)> :F4$=STRING$(28, CH 

R$<19i»+STRIN6*<8, CHR$<128»+STRIN6$<27, CHR$<191» : RETURN 

898 AD*=" MOUNTAIN SIDE":F2$=STRING$<30,CHR$<128»+STRIN6$(4,CHR 

$<19i»+STRING$(29, CHR$<128» :F3$=STRING$<26, CHR$<128»+STRING$< 

12, CHR$<i91»+STRIN6*<23, CHR$(128» :F4$=STRING$(15, CHR*(128»+ST 

RING$<38,CHR$<191»: RETURN 

988 BD$=" DEEP FOREST" :F4$=CHR*<128)+STRING*(8,CHR*<191))+CHR$(1 

28> :F2$=F4$+F4#+F4$+F4$+F4*+F4*:F3f=f 2f :F5$=STRING$<4, CHR*(128» 

+CH»<178>+STRING$<5> CHR*<128» :F4$=F5$+F5$+F5$+F5*+F5$+F5* :RETU 

RN 

918 AD$=" VAST FIELD OF PERFUMED FLOWERS" :F3$=CHR*(128)+CHR$(153 

)+CHR$<145)+CHR$(128)+CHR$<128)^CHR$(i28):F3$=Fl:$+F3$+F3$+F3$+F3 

$+F3$+F3$+F3$+F3$+F3$+F3$ : F2$=CHR*<128)+F3$ : RETURN 

928 AD$=" DESERT FULL OF CACTUS" :F2$=CHRI(181)+CHR$<186)+STRING$ 

(8, CHR$(128»+CHR$(172)+CHR*(186>+CHR$(142)+STRING$(6, CHR$<128» 

:F2$=F2$+F2$+F2$:F3$=CHR$(128)+F2$:F4$=STRIN0$<63, CHR$(198>) :RET 

URN 

930 AD$=" SEA SIDE COVE":F2$=STRING*(5,CHR$(128»+STRING$(5,CHR$ 

<188))+CHR$<198> :F3$=STRING*(3, CHR*(148»+STRING$<7, CHR$(143»+C 

HR$(175) :F4$=CHR$(139)+STRING$(5, CHR$(191»+STRIN6*(12, CHR*<188> 

)+CHR$<135)+CHR$(131) :RETURN 

948 M1=RND<M2) 

958 ONM16OSUB960, 978, 988, 998, 1888, 1810 : 60T01828 

968 AE$=" ILLUMINATED THE SURROUNDINGS. ": RETURN 

<*7fl fiE«=" BATHED THE LflNDSCAPE ALL ABOUT. ":RETURN 



988 AE*=" SHHTHED THE AREA WITH COLOR. " .RETURN 

990 AE$=" COVERED ALL WITH A GENTLE HUE. " .RETURN 

1888 AE$=" SPECKLED THE AREA WITH FLICKERY SPOTS. '* :RETURN 

1018 AE$=" FLASHED BRILLIANT RAVS ALL AROUND. ":RETURN 

1828 M1=RND(M2) 

1828 ONM1GOSUB1840, 1858, 1868, 1870, 1888, 1898 : 60TD1168 

1848 AF$=" STANDING": RETURN 

1058 AF$=" SITTING": RETURN 

1060 AF$=" LAYING": RETURN 

1878 AF$=" STANDING ON THEIR HEADS": RETURN 

1888 AF$=" SKIPPING": RETURN 

1098 AF$=" DANCING" :RETURN 

1188 «1=RND<N2) 

1118 ONM1GOSUB1120, 1138, 1148, 1158, 1168, 1178 : GOT01188 

1128 AG*=" CROOKED PATH": RETURN 

1128 AG$=" RAMBLING ROADWAY": RETURN 

1148 AG$=" TWISTV AVENUE": RETURN 

1158 AG*=" WINDING LANE": RETURN 

1168 AG*=" TWISTING STREET": RETURN 

1178 AG$=" WINDING TRAIL" :RETURN 

1188 M1=RND(I12) 

1198 0NH1G0SUB1288, 1218, 1228, 1238, 1248, 1258 : G0T01268 

1288 AH$=" GOLDEN BRICKS" :F5$=CHR$(128)+CHR$(183)+CHR$<179)+CHR$ 

(187)+CHR$(128) : F6*=F5* : FORF0=1TOVAL(A4$)-1 : F5$=F5$+F6$ : NEXTF8 : R 

ETURN 

1218 AH$=" SILVER BARS":F5$=CHR$(128)+CHR*<188)+CHR*(188)+CHR$<1 

88) : F6$=F5$ : F0RF8=1T0VAL< A4*)-l : F5$=F5$+F6$ : NEXTF8 : RETURN : RETURN 

1228 AH*=" HARSHMELLOW PILLOWS" :F5$=CHR$(128)+CHR$<166>+CHR$(179 
>+CHR*<153) : F6$=F5I : F0RF8=1T0VAL< A4$>-1 : F5*=F5$+F6* : NEXTF8 : RETUR 
N 

1238 AH$=" $100 DOLLAR BILLS" :F5$=CHR$(128>+"$168":F6$=F5*:F0RF0 

=1T0VAL< A4$)-l : F5*=F5$+F6$ : NEXTFO : RETURN 

1240 RH$=" TURTLE SHELLS" :F5$=CHR$(128)+CHR$(174)+CHR$(174):F6$= 

F5$ : FORF0=1TOVAL( A4$)-l : F5$=F5*+F6$ : NEXTFO : RETURN 

1258 AH*=" HUGE PEARLY SHELLS" :F5$=CHR$(128)+CHR$(178)+CHR$(153> 

: F6$=F5* : F0RF8=1T0VAL< A4$)-l : F5$=F5$+F6$ : NEXTF8 : RETURN 

1268 m=RND<«2) 

1278 ONM1GOSUB1280, 1298, 1388, 1318, 1328, 1338 : G0T01348 

1288 AI$=" FLABBERGASTED, ".RETURN 

1298 AI$=" SHOCKED, ":RETURN 
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1388 fll*=" ftSTOUNDED, ":RETURN 

1210 AI$=" FRIZZLE-FRAZZLED,": RETURN 

1328 fll*=" BUG-EYED,": RETURN 

133S AI$=" AGOG AND AGAST,": RETURN 

1340 M1=RND<M2) 

1358 0NH1G0SUB1368> 1370, 1288, 1298, 1480, 1410: GOTG1420 

1268 RJ*=" RAN ON SWIFTLY": RETURN 

1270 AJ$=" SKIPPED THE WW" :RETURN 

1280 AJ*=" CAUTIOUSLY MOVED ON" : RETURN 

1290 AJ$=" JOGGED ON RHEAD": RETURN 

1400 AJ$=" WALKD SLOWLY ON": RETURN 

1410 RJ$=" CREPT QUIETLY ALONG": RETURN 

1428 W=RND<M2> 

1428 0NM1G0SUB1448, 1458, 1468, 1478, 1488, 1490 : 60T01588 

1448 AK*=" FLOWING FIELDS FULL OF" .RETURN 

1458 AK$=" ROLLING PLAINS COVERED WITH" : RETURN 

1460 AK*=" PLOWED FIELDS PLANTED WITH": RETURN 

1478 AK$=" ROLLING COUNTRY-SIDE COVERED WITH": RETURN 

1488 AK$=" AMBLING HILLSIDES POPULATED WITH" :RETURN 

1498 AK*=" RflMBLING FARMLAND COVERED WITH": RETURN 

1588 M1=RND(M2) 

1518 0ffllG0SUB1528, 1528, 1548, 1558, 1560, 1570 : G0TG1588 

1520 AL$=" HUGE COLORED BOULDERS" :F6$=CHR$(128)+CHR$(142) :RETUR 

N 

1538 AU=" LARGE PAINTED ROCKS" ;F6$=CHR*<128>+CHR$<128>: RETURN 

1548 AL*=" TALL HUED FLOWERS" :F6$=CHR$<128>+CHR$(136>+CHR$<157> 

:RETURN 

1558 AL$=" MONSTOROUS PUT«>KINS:F6$=CHR*<i28)+CHR$(174)+CHR$<191 

>+CHR$(157): RETURN 

1568 AL$=" BIG WATERMELLONS" : F6$=CHR$(128)+CHR$(183>+CHR$<187> : 

RETURN 

1578 AL$=" FANCY PINKERDOTTED ROSES" :F6$=CHR$(128)+CHR$(162)+CHR 

1(166): RETURN 

1580 M1=RND(M2) 

1598 ONM16OSUB1680, 1618, 1628, 1638, 1640, 1658 : G0T01668 

1688 AM$=" TINY TREES" :F7$=CHR$<175)+CHR$(133): RETURN 

1619 AM$=" SWEET SCENTED BUSHES" :F7$=CHR*<169)+CHR*<129>: RETURN 

1628 AM$=" GREAT SWAYING 0AKS":F7$=CHR$(175)+CHR$(133):RETURN 

1638 AM$=" CHRISTMAS TREES" :F7$=CHR$(91)+CHR$(91): RETURN 

1646 Af1$=" TOWERING PINES" : F7$=CHR$<142HCHR*<157> : RETURN 
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1656 AM*=" DROOPING HILL0HS":F7$=CHR*<135)+CHR$(i?i)+CHW(i51)+C 

HR*<139> .RETURN 

1668 Mi=RND<M2> 

1678 0NMG0SUB168& 1698, 1788, 1718, 1728, 1738 : G0T0198B 

1688 AN*=" MARS BflRS AND TOV CflRS":F8$=CHRf(123)+CHR$(128)+CHR$( 

38)+CHR*<128)+CHR$<172)+CHR$(142)+CHR$(148>+CHR*(156) : RETURN 
1698 AN*=" LICORICE STICKS AND BUILDING BRICKS" :F8*=CHR*<149)+CH 
R*<38)+CHR*<128)+CHR*<188>+CHR*<188> : RETURN 
1788 AN*=" GUM DROPS AND LOLLIPOPS" :F8*=CHR*(132>+CHR*<38>+CHR*< 

128)+CHR$<148)+CHR$(148)+CHR$(191)+CHRf<191):RETURN 

1716 AN*=" CHOCOLATE HOUSES AND PLAV HOUSES" :F8*=CHR*<172>+CHR*< 

172)+CHR$(129)+CHR$(38)+CHR$(128)+CHR$(151)+CHR$(171)+STRIN6$(5, 

CHR$(187)):RETURN 

1728 AN*=" TASTV CAKE AND THINGS TO KAKE":F8*=STRIN6*<3,CHR*<188 

)>HO^<38)+CHR$<128)-K3«$<152)+CHR$<128)+CHR$(149)+CHR*(128)+CH 

R*(154>+CHR*<128>+CHR*<175)+CHR*<178>: RETURN 

1738 AN*=" FANCY PIE AND PLANES THAT FLY":F8*=STRING*G,CHR*<176 

))+CHR*(38)+CHR*<128)+CHR$(141)+CHR$<148)+CHR$<157> :RETURN 

1748 0NM1GOSUB1688, 1698, 1788, 1718, 1728, 1738 : G0T019ee 

1758 N0=RND<26)+64 

1768 Nl=RND<26>+64 

1778 N2=RND<26>+64 

1788 N3=RND(26)+64 

1798 N4=RND(26)+64 

1888 N5=RWX26>+64 

1818 N6=45 

1828 N7=RM><26>+64 

1838 N8=Rfff><26>+64 

1848 N9=RND(26>+64 

1858 RETURN 

1868 M1=RND(M2>: RETURN 

1878 CLS:PRINT§448, :PRINTAA*:PRINT"A "; Bfc C*; "PERSON"; ", "; A*; " A 

ND "; Alii", A FRIEM>":G0SUB2758 

1888 PRINT" OF ";A*;"'S ";AB*:PRINTD*:G0SUB2768:G0SUB2758 

1898 G0T0788 

1988 PRINT88, F2I : PRINTF3* : PRINTF4* : PRINTM48, AC*; AD* : G0SUB2758 

1918 PRINT" WERE ";A3*;" LIGHT"; BE*. G0SUB2758 

1928 PRINTS*;" AND ";A1*;" FOUND THEMSELVES" :PRINTAF*; " ON A"; AG 

$ 
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1928 Y=18:N=RND<3> :N=N+2:F0RX=1T0125:SET(X, Y> :SET<X, Y+l> :SET(X, Y 

+2) :N=RND<2> : IFN=1T^NNEXTXELSEN=RND<3> : N=N-2 : Y=Y+N : IF<Y<1)0R<Y> 

46>THENY=1ELSENEXTX 

1948 60SUB2758 

1958 PRINTWHICH HAS PAVED WITH"; AH$; " ";A4$;" FEET WIDE":PRINT8 

8,F5$:G0SUB2758 

1968 PRINTA*;" AND ";ftL$;" STARTED DOWN THE"AG$:GOSUB2756 

1978 M1=RND<M2> : 0NM1G0SUB648, 658, 668, 678, 688, 698 

1988 PRINT"flND IN A WHILE MET fi ";C$;"";" ";A6$;" HHO SflID":GOS 

UB2758 

1998 PRINT"'MY NflHE IS ";A2$; "'"-.G0SUB2758 

2688 PRINTA*;" MRS SIMPLY"; AI$; " THAT RNIMRLS COULD TALK. ":GOSUB 

2758 

2816 PRINTA6*; "-"; A2*; " RDVISED THEM TO TAKE CARE FOR DANGER LAY 
AHEAD. ":G0SUB2758 

2828 F0RF8=1T018 : N=RND(1866) : PRINT8N, "DANGER ! ! " : NEXTF8 
2838 PRINT"THEY SAID GOODBYE AND THANKED ";A6$; "-"; A2* : G0SUB2758 
2848 PRINT"AND";AJ$;" DOWN THE";AG$;" UNTIL THEY CANE":G0SUB2758 
2858 PRINTOUT OF THE ";AD$; ". ":PRINTF2*:PRINTF3*:PRINTF4$:G0SUB 
2758 
2868 PRINTA1$;" AND ";A$;" NOW FOUND THE ";AG$;" LEADING OFF INT 

":G0SUB2758 

2878 PRINTAK*:G0SUB2758 

2886 M1=RND(M2) :0NM1G0SUB478, 488, 436, 588, 518, 528 
2898 PRINTALI;" WHICH WAS SIMPLY ";B$;". ":G0SUB2758:F0RF8=1T038: 
N=RND(968> : PRINT8N, F6$ : NEXTF8 : G0SUB2758 

2188 PRINT"BOTH SIDES Of THE"; AG*; " WERE LINED WITH"AH*;". ":PRIN 
TF7*;:PRINT" "; :PRINTF7*: PRINT" "; :PRINTF7*; : PRINT" 
; :PRINTF7*: PRINT" "; :PRINTF7*; : PRINT" "; :PRINTF7*: PRINT" 
"; :PRINTF7*; :PRINT" "; :PRINTF7*; :PRINT88, ""; :G0SUB275 
8 

2118 PRINT8328, F8$ 

2126 PRINT'TROM WHICH HUNG"; AN* : G0SUB2756 
2138 PRINTA*; " AND "; Al$; " STARTED PICKING ALL THEY COULD CARRY" 

:G0SUB2758 

2148 F0RF8=1T0M4:PRINTF8*;: PRINT" "; :NEXTF6: PRINT"" 

2158 PRINFAND SOON GOT SEPARATED";G0SUB2758 

2168 PRINT" JUST THEN A PACK OF ";M4;" ";A8$;"S SWOOPED ":G0SUB27 

58 
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2178 PRINT"DQWN AND CRRRIED ";ftL$;" OFF TO THE";AL$;". ":60SUB275 

e 

218® F0RF0=1T015 : N=RND<899) : PRINTS F6* : NEXTFO 

2198 PRINT"SHOUTINQ 'AHAY ALL VOU ";A8$;"'S, WE EAT TONIGHT. /H :G 

0SUB2759 

2280 PRINT" ALL OF A SUDDEN, ";A*;"'S "; A5$; " POPPED OUT FROM BEH 

IND":GOSUB2750 

2210 PRINTF7*; :PRINTF7$; :PRINTF7$; : PRINT" "; CHR$<153)+CHR*<1 

48>+CHR$<i56)+CHR$<131) 

2220 PRINT"A GROUP OF ";AM*;" AND GAVE CHASE NOISILY. ":G0SUB2758 

2230 PRINT"THEN THUNDERINO DOWN THE ";A6$;" CAME ";A6$; .PRINT"-" 

;A2fc". ":6OSUB2750 

2240 PRINT"WHO SAID 'QUICKLY ";A$;" GET ON MY BACK. ":6OSUB2750 

2250 PRINT"AND OFF THEY WENT IN PURSUIT OF THE PACK OF "; A8$; "'5 

.":60SUB2758 

2260 PRINPHITH ";A$;"'S ";A5$;" LEADING THE WAY, THEY FINALLY C 

AUGHT" :GOSUB2750 

2270 PRINT"UP WITH THE ";A8*;"S IN ";A4*;" MINUTES. ":GOSUB2750 

2280 GOSUB1750 

2290 PRINTA6$; :PRINT"-";A2$; H YELLED 'LISTEN LEADER ";A8$;",T0 M 

Y MAGIC WORDS. '":GOSUB2750 

2200 PRINTCHR$<23> 

2310 PRINTCHR*(N0>; CHRKN1); CHRKN2); CHR$(N3>; CHR$<N4>; 

2320 PRINTCHR$(N5>; CHR$(N6>; CHR$(N7>; CHR*<N8>; CHR*<N9> 

2330 GOSUB2750 

2340 PRINT"AND THE ";A8*;" CHIEF TURNED INTO ";A$;"'S FRIEND ";A 

X$:6OSUB2750 

2350 FORF0=2TOM4:FA=RND(996):PRINT0FA,F6$; : NEXTFO : PRINT0448, ""; 

2360 PRINT"ALL THE OTHER ";A8$;"S TURNED INTO";AL$:GOSUB2750 

2370 PRINTA6*; "-";A2$; " THEN LED THEM TO THE END OF THE"; AG* : 60S 

UB2750 

2388 PRINT00, F7$, F7$ : PRINTF7$, F7* : PRINTF7$, F7$ : PRINTF7$, F7$ 

2390 PRINT"BETWEEN THE"; AM*; " AND SAID GOODBYE. ":GOSUB2750 

2400 M1=RND(M2) 

2410 ONM1GOSUB880, 890, 900, 910, 920, 930 

2420 M1=RND<M2> :ONWGOSUB800, 810, 820, 838, 848, 858 

2430 M1=RND(M2) : ONM1GOSUB1120, 1130, 1140, 1150, 1160, 1170 

2448 PRINTA*; " SAID DON'T 60 YET, LISTEN TO MY MAGIC WORD AND SA 

ID:":GOSUB2750 
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GROWING WEARY 

Tracing Unstructured 

BASIC Programs 

Introducing... 

MMSFORTH 



THE LATEST IN A HIGH-LEVEL LANGUAGE SOFTWARE 
DEVELOPMENT SYSTEM. 

OK 
OK 

OK 



MMSFORTH is a new version of the powerful, fast, and 
structured FORTH language, specifically written for the 
ok TRS-80, and offers such features as: 

OK 
OK 

• Double precision integer math 

• Reverse polish notation 

• Blinking cursor, auto-repeat keyboard 

• Virtual Memory! 

• Editing capabilities similar to Level II 

• Supports Z-80 assembly blocks within the FORTH 

structure 

OK 

MMSFORTH is available in two versions; a complete version for 
disk systems and a close approximation to that version which is 
designed for the Level II, 16K tape system. The disk version 
offers "virtual memory' 1 , supports one to four disk drives, does 
not require any other disk operating system, and also has both 
disk and tape input/output capabilities. 

OK 

TAKE ADVANTAGE OF A POWERFUL STRUCTURED 
LANGUAGE WITH THE EXECUTION SPEED OF A 
COMPILER. 

ok MMSFORTH is available now from TSE. 

OK 
OK 
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MMSFQRTH % 



1 %, 



Tho MMSFORTH system diskette or 
cassette tape provides for the ex pansion of 
FORTH commands by the user. There are 
many programs and routines provided as 
examples of FORTH programming, such as: 



Routines For: Pr ogr ams Fen 

String Handling Game of Life 

Graphics Checkbook Balancing 

File Sorting String Sort 

Screen Printing Number Guessing Game 

The TRS-M Software Exchange intends to fully support the 
introduction of MMSFORTH with the development of 
supporting application modules. Early MMSFORTH projects 
are: 

floating-point package • 

assembler /cross compiler to provide • 

standard TRS-80 load modules 

large flexible mailing list system • 

generalized data base management system • 

word-processing package (FORTHWRITE) • 



MMSFORTH, by Miller Microcomputer Services, includes 
introductory documentation with further references to the 
MicroFORTH primer of FORTH, Inc. This manual is an 
invaluable reference for the FORTH programmer, and can be 
purchased separately by anyone desiring more information on 
the FORTH language structure. 

30-DAY INTRODUCTORY PRICE 

MMSFORTH cassette version, Level II, 16K $34.95 

MMSFORTH disk version, Level II, 16K 44.95 

MicroFORTH primer 15.00 




T|« 



TRS-0O Software exchange 

17 Briar Cliff Drive Milford, New Hampshire 03055 
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2458 GOSUB1750 

2468 PRINTCHR*<23> 

2478 PRINTCHR$<N0>; CHRKN1); CHR$(N2>; CHR$(N2>; CHR$<N4>; CHR$<N5>; 

2488 PRINTCHR$(N6>; CHRf(N7>i CHR*<N8>; CHR*<N9> 

2498 G0SUB2758 

2588 PRINT"AND THERE STOOD THE OTHER FRIEND ";A2$:G0SUB2756 

2518 PRINT"ALL THE FRIENDS HERE SO HfiPPY. ":G0SUB2758 

2520 PRINTF2$:PRINTF3$:PRINTF4$ 

2520 PRINT"THEV ENTERED fl ";AD$;" ON THE"AG$; " ALONG" : G0SUB2758 

2540 PRINT"HHICH THEV FOUND ";D$; "WHICH THEY HOPPED ON. ":G0SUB27 

58 

2558 GQSUB2768 

2568 PRINTAC*;" PLACE THEY KNEW VERY WELL":G0SUB2?58 

2570 PRINTCHR$<23>: PRINT" HOME ! ! . ":GOSUB2750 

2588 PRINTTHEIR FAMILY MRS SO HfiPPY TO HflVE THEM BflCK":GOSUB275 



2590 PRINT"fiND THEY HERE ALL RICH, FOR THEY HflD BOUGHT HOME":GOS 

UB2750 

2600 PRINT "WITH THEM :" 

2610 PRINTA STUFFED ";A6* 

2620 PRINT"AND fl SCULPTURED ";A8* 

2628 PRINFA WHOLE LOT OF"; AN* 

2640 PRINT"SOME ";6$;"";AL$ 

2658 PRINT"A WHOLE BUNCH OF";AH$:FORF0=1TO2000:NEXTF0:GOSUB2750 

2660 PRINTF5$:FORF0=1TO VSL(A4$):PRINTF6$; " "; :NEXTF0:FORF0=1 

T0VfiL<R4$):PRINTF8$i" "; :NEXTF0:GOSUB2750 

2670 GOSUB2760 

2680 PRINT H AND OF COURSE ";D$; "WHICH THEY COULD USE ":G0SUB2758 

2638 PRINT"WHENEVER THEY WANTED TO GO ON ANOTHER ADVENTURE. ":GOS 

UB2750 

2700 PRINT 

2710 PRINT"AND THEY ALL BECAME HAPPILY HARRIED AND LIVED A ":GOS 

UB2750 

2720 PRINT"LONG AND FRUITFUL LIFE. !!!!!!" 

2738 G0SUB2758:G0T018 

2748 END 

2758 W=Vl:F0RV=lTOW:NEXTV:aS:PRINT8448, : RETURN 

2760 F0RV=191T0248 : PRINT8V, Flf > : FORV9=1TO10 : NEXTV9 : NEXTV : PRINT82 

48, " " :RETURN 

2778 CLS:GOSUB930:PRINTee,F2$:PRINTF3$:PRINTF4$ 
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The Little 
Book of 
BASIC Style 

by John M. Nevison 

Here is the ideal reference for 
anyone who wants to write better 
programs in BASIC. The Little 
Book of BASIC Style is suitable 
for all levels . . . from junior high 
school student to research 
scientist. A work meant to be read 
and reread. Achieve fluency in 
computing. 

Indexed, illustrated. 151 pages. 
$5.95 + $1.00 handling 
TRI-0O Software £xchan<)c 
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FORUM-80 

A new service for the computer 
hobbyist is FORUM-80, a network of 
interactive computer-based mes- 
sage systems. Use of the network is 
free; required equipment is a 
modern, RS-232C, and a terminal 
program such as ST-80 or ST-80D. 
Simply set your RS-232 to 8 bit 
word, 300 baud, 1 stop bit, no 
parity, and dial up one of the 
numbers below. When you hear a 
high-pitched tone, place the handset 
on the modern and press 
"ENTER" The systems are self- 
prompting and a lot of fun! 

Kansas City, MO 81 6-861 -7040 

Chicago, IL 312-925-0259 

*Ft . Worth , TX 81 7-923-0009 

Orange County, CA 714-730-1206 

(New systems come on line each 
month. Try one of the numbers 
above for a listing of a FORUM-80 in 
your area.) 

'J 



IRK MEMORY KITS 

■ WkaS I m by ITHACA AUDIO 



Everything you need to up-grade your 
TRS-80 to a 16K system 

• 8 tested and guaranteed 16K RAM's 

• New programming jumpers 

• Easy-to-follow instructions 

• Only tool required is a household screwdriver 

Each kit is 100% guaranteed against failure. Add high quality, 
high density memory for less than you would expect to pay! 



$99.95 



Tf« 



TRS-80 SoftiiKife Exchange 

17 Briar Cliff Drive Milford, New Hampshire 03055 
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MAIL 
LIST II 



byBUS-W 



IDEAL for all sorts of 
mailing applications, 
small businesses, clubs, church- 
es; for advertising, newsletters, 
announcements, press releases - 
endless possibilities. We use It 
for a 15,000-name mailing list, 
yet it is perfect for lists as short 
as 100 names! You can store 1000 
records per data disk, use as 
many disks as you like .. . 

Each record includes: 

RECORD NUMBER 
RECORD CODE 
COMPANY NAME 
NAME 
ADDRESS 
CITY/STATE/ZIP 
PHONE NO. 
GREETING 
PRODUCT CODES 
DATE 

Utilities include SORT. MERGE. 
MOVE. BREAK. EXAMINE, and 
UPDATE. 

Prints labels 1. 2. or 3 across. 
Sequential file structure makes the 
most efficient use of disk space: all 
alphabetic items can be as long as 
necessary. 

Allows data entry on a 4K. Level II 



*DI*Drtw,ttKi 



WS2 



x-iwriG ii 



by Chris Freund 

4 

For the thousands 
who have enfoyca 
X-Wmg Fighter. 
X«Wlng II pr ew n U 

in the game! 



,i»— - 





HO PNQt Of 

mX'trVfcig 

iifjntcr ••• 



When* X-Wing I left Death star 
looming on the screen. X-Wing II let* you guide your 
fighter into the trench, find the exhaust port, aim and 
lire — all the while avoiding enemy fighters, Excellent 
graphics. 12 levels of play, and extensive INKi:Y$ 
commands make this one of our most exciting 
"real-time" games. 

Level II, 1*K-f».9S 



lilOttE CODE 



L EAR N 

wmmm «»^«» mmrnrn ••• • «••«»• «»o»o» «»•• • 
M RSE C O DE 

o» •••• • 
THE 

E A S Y W A Y 

by Donald E. Smith 

Whoever said, "Practice makes perfect", must have been an 
instructor of Morse code. Most types of learning are best reinforced 
by drill, but rate learning, be it of a language or vocabulary, 
multiplication tables or musical scales, benefits most from proctice 
and repetition. To that last category we can also add Morse code, 
which is really nothing more than a new alphabet. 

Three methods of learning Morse have emerged over the years. 
Each has its drawbacks. A friend could send practice messages; this 
requires a friend with time, patience, and a good knowledge of code. 
Records and tapes are available that promise "20 WPM in only 2 
Weeks!"; these are like studying for an eye examination once you 
know what the letters are — the difficulty and the value are gone. 
The third alternative, and up to now the best, has been to tune in the 
American Radio Relay League's daily code practice sessions. These 
provide varying material and a natural sound, but require that you 
practice at the scheduled times, which may not be convenient. 

Now there is a better way to study. Simply enter this program, 
place an AM radio (tuned near 540) at the right of your keyboard, 
and get Set to learn the code in less time than you thought possible. 
When you've worked your way up to 20 WPM on familiar text, you'll 
be a certified "brass pounder"! 
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10 REM - MORSE CODE TUTOR - COPYRIGHT - DONflLD E. SMITH - 1978 
20 CLEflR 400:DEFINT A-C, K, L X-Z:DIM A<64) :CLS 
38 PRINTHL I'M YOUR BflSIC MORSE CODE TUTOR. I INSTRUCT" 
40 PRINT"ON 3 ASCENDING LEVELS WITH USER DEFINED DIFFICULTY" 
50 PRINT"! = CHARACTER ENCODE - YOU ENTER CHARACTERS AND I'LL" 
60 PRINT" SEND AT THE RATE YOU CHOOSL 5 WPM - NOVICE, " 
70 PRINT" 13 MPM - GENERAL, 20 NPM - ADVANCED (HOT-DOGGER!)" 
80 PRINT"2 = RANDOM CHARACTER PRACTICE - I SEND AND YOU COPY" 

90 PRINT" BY RESPONDING ON THE KEYBOARD. ";CHR$<91)> 
180 PRINT" = END OF WORK, " 

118 PRINT" > = END OF MESSfiGE, - = HAIL 8 = ERROR" 
128 PRINP3 = TEXT - TO FURTHER IMPROVE YOUR COPY I'LL SEND" 
138 PRINT" A ONE LINE MESSftGE, BE FAIR THOUGH AM) GET A" 
148 PRINT" BUDDY TO ENTER THE ICSSAGE !" 

158 INPUT"COMMAND ";K:CLS:IF K<1 0RK>3 THEN 50 

160 INPUT"CHARACTER RflTE(HPM) ";C 

178 IF K=l THEN 288 ELSE IF K=3 THEN 190 

180 INPUT"RESPONSE TIME(SEC) ";H:GOTO 200 . 
190 INPUT"HORD RATE<HPM) "iN 
208 Ti=280/C:T8=T1:T2=3*T1 

210 IF K=2 T3=100*W ELSE T3=<C-H)*200/C+T2 

220 IF K=l THEN 1040 ELSE IF K=2 THEN 870 

230 MI="":I=0:B=3:PRINT"ENTEr TEXT -":PRINT 

240 X*=INKEY*:IF X$=»" THEN 240 ELSE X=ASC(X$) : PRINT X*; 

250 IF X=3i as : GOTO 230 

268 IF X=62 THEN 298 ELSE IF X=91 THEN 290 

278 IF X=13 1=1-1: GOTO 388 ELSE IF X=8 1=1-1: GOTO 240 

280 A( I )=X: 1=1+1: GOTO 240 

290 A(I)=X:PRINT 

300 FOR J=0 TO I:X=A(J):IF X=32 C$=" ": GOTO 850 

310 B=B+1 

328 IF X=44 C$="--. . - ":GOTO 850 

338 IF X=62 C$=". -. -. " : GOTO 850 

348 IF X=6i C*="-. . . - " :60T0 858 

358 IF X=91 C*=". . . -. - ":GOTO 850 

368 IF X=63 C*=". . -. . " :GOTO 850 

378 IF X=64 C$=" ": GOTO 850 

388 IF X<45 THEN 848 ELSE IF X>57 THEN 418 

390 X=X-44 
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468 0NXG0T0458, 468, 478, 488, 498, 588, 518, 528, 538, 548, 558, 568, 578 


418 IF X<65 THEN 848 ELSE IF X>77 THEN 438 ELSE X=X-64 


428 0HXG0T0588, 598, 688, 618, 628, 638, 648, 658, 668, 678, 688, 698, 788 


438 IF X>96 THEN 848 ELSE X=X-77 


448 0NXGOT0718, 728, 738, 748, 758, 768, 778, 788, 798, 888, 818, 828, 838 


456 C$=". -. 


. ":G0T0 858 


466 C$=". -. 


-.- ":G0T0 858 


478 C*='-. . 


- ":(S)T0 858 


488 C$=" — 


~ ":G0T0 858 


498 C$=". - 


- ":QOTO 858 


588 C*=". . - 


- ".GOTO 858 


518 C$=". . . 


- ":GOTO 858 


526 0$=* . . 


- ":GOT0 858 


538 C$=". . . 


. ":GOT0 858 


548 C$="-. . 


. ":GOT0 858 


558 «='--. 


. ":GOTO 858 


568 C$=" — 


".GOTO 858 


578 C*=*— 


-. VG0T0 858 


588 C$=". - 


" GOTO 858 


598 C*="-. . 


":GOTO 858 


688 C$="-. - 


":GOTO 858 


618 C$="-. . 


":GOTO 858 


628 C$=". " 


:GOTO 858 


638 C$="..- 


" :GOTO 858 


648 C$="~ 


":G0T0 858 


658 C*=". . . 


' :GOTO 858 


668 C$=". . 


":GOT0858 


678 C$=". — 


-•:G0T0 858 


688 C$="-. - 


":G0T0 858 


698 C*=" :'-. 


":G0T0 858 


786 C$=«— 


':GOTO 858 


716 C*="-. 


":G0T0 858 


726 C$="— 


":G0T0 858 


738 C$=". -. 


":GOT0 858 


748 C$="-. 


- " :GOTO 858 


758 C$=". -. 


": GOTO 858 


768 C$=". . . 


":GOTO 858 


778 C$="- " 


:S)TO 858 


788 C*=". . - 


":GOT0 858 
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798 C*="...- ":GOTO 856 
888 «=".-": GOTO 858 

818 C$="-. ..- ":GOTO 858 

828 C*="-. -- ":G0T0 858 

828 C*="~. . ":G0T0 858 

848 C*="":B=B-1 

858 M$=M$+C* : IF K<>2 RETURN 

868 NEXT: PRINT: PRINT B; "CHfiRRCTERS COMPILED, '; ' 

878 INPUT"RETURN TO TRfiNSHIT - u ifl*:PRINT: IF K=2 THEN 988 

888 X=INT(RND(8)*47)+44:IF X>5? IF X<61 THEN 888 

898 Z=X:N$="":GOSUB 228:60SUB 988:0$="": GOTO 888 

988 V=LEN<ltt> :FOR J=i TO Y:B$=MID$<M$, J, i> 

918 IF fi*="-" fl$=CHR*<95> 

928 IF K<>2 PRINT ft*; ELSE 0$=0$+fi$ 

928 IF fi$=" " THEN 968 ELSE IF fi*=". " T=T1 ELSE T=T2 

948 OUT 255,4:F0R L=8 TO T:NEXT:OUT 255,8 

958 FOR L=8 TO T8:NEXT:NEXT 

968 IF K=l NEXT: RETURN 

978 FOR L=8 TO T2:Xf=INKEY*:IF X$0"" THEN 998 

988 NEXT: GOTO 1818 

998 ft=ftSCCX*>: PRINT X$; :IF fl=21 CLS:0$=" ,, :GOTO 878 

1888 IF fl=Z PRINT" = "; 0$; TfiB<15>; "CORRECT !":GOTO 1828 

1818 IF K=2 NEXT : PRINT : PRINT : GOTO 228 

1828 PRINT Tfi8<6>; 0$; TftBCIS); "= "; CHR$<2) 
1628 FOR L=8 TO T2: NEXT L: RETURN 

1848 PRINT"ENTER CHflRflCTERS -": PRINT 

1858 H*="":X$=INKEVf:IF X$<>"" X=flSC<X$) ELSE 1858 

1868 IF X=21 as. GOTO 1848 

1878 PRINT X$i :GOSUB 228:PRINT" = "; 

1888 IF «$="" PRINT" INVftLID CHftRftCTER !": GOTO 1858. 

1898 GOSUB 988: PRINT: GOTO 1858 
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NOW - LEVEL III BASIC 



Now do more than ever before 
With the most powerful Basic you can buy 

For the TRS-80. 

Open the manual and load the cassette Then get ready to work with the most powerful Basic interpreter 
you've ever had your hands on Level III Basic for Radio Shack Computers It loads right on top of the 
Level II ROM, and in just SK of space, opens up your capability to new dimensions For starters, this new 
tasset te -based interpreter gives you the whole catalog of disk programming power Plus graphics commands 
Plus Powerful editing commands Plus long error messages, hex and octal constants and conversions, user 
defined functions and a number of commands never before available on either cassette or disk interpreters* 

EASIER LOADING, FEWER KEYBOARD ERRORS G2 Level HI Basic eliminates aggravations you've 
had, including keyboard "bounce" and those supersensitive tape deck settings Programs will load easier, 
and you'll have far less trouble with input errors 

BASIC ACCESS TO RS 232 Until now, if you warned to access your RS 232 interface, you had to work in 
assembly language G2 Level HI Basic docs the work for you, letting you use your interface with Basic 
statements 

HAVE YOU WISHED FPU MOKE POWER * This new interpreter gives you 10 machine language user calls 
for subroutines, long errors messages, a new TIMES call far your real tune accessory, plus measure or limit 
input timing that lets you put a time limn on responses when you Ye playing games or giving exams And the 
list doesnt stop here 

EASIER AND MORE POWERFUL GRAPHICS This new Basic includes three simple commands that can 
eliminate dozens of program steps PUT transfers information from a designated array to your screen, GET 
reverses the process LINE makes your computer do the work when you input beginning and end pants 
Give it two diagonally opposite corner locations, and it II outline the rectangle you're looking for 

O NLY MI CROSOFT COULD DO IT G2 Level III Basic was created by Microsoft, the same company that 
wrote Level II Basic for Radio Shack And it actually uses Level II as a foundation for this enhanced add-on 
By the time you've mastered all it can do, calling up the flexibility of the graphics command , and even 
enjoying the convenience of renumbering, youll wonder how it was all possible It's like getting a whole new 
computer for your computer 

AVAILABLE MOW FPU ONLY S49 95 You get the power that might otherwise cost you hundreds of dollars 
in additional equipment far only $4993 Price includes the Users Manual, a Quick Reference Card, and a 
preprogrammed cassette tape Load the tape, open the manual, and get ready to work with the most 
powerful Basic Interpreter you've ever had your hands on Level III Basic far the TRS40 
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TRS-SO Joftwofe Exchon9e 

17 Briar Cliff Drive Milford, New Hampshire 03055 
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ctypt ye m 

XQJl]5FT7QBd 

by Rik Pierce 

Puzzle addicts, here's a pro- example, in a long quote, the 
gram for you. If you've ever tried frequency with which some let- 
to solve a difficult cryptogram ters occur may closely match that 
without an eraser, you'll appro- of the language in general (E 
elate the convenience of using occurs far more often than Z or 
the computer. And, if you've Q)- ln order, the most common 
never experienced the joys of letters are E T A O I N S. 

a~r P Jidy n fSr1i t r r ~ , |! bra * n - teaser ' Word beginnings, endings, 
get ready for a treat! punctuation, and dipthongs may 

A cryptogram is a popular play a part In the decoding 

puzzle in which a quotation is process.Most Important, though, 

encoded by a substitution cipher, are short words, which can 

In other words, for each letter in unlock the vowels in a puzzle in 

the original quote, a different short order. There are only two 

letter is substituted; punctuation one-letter words (I and A), and a 

remains unchanged. handful of two-letter and three- 
letter words. 
For example: 

SAY "HELLO" To tell you any more, though, 

might become: would spoil your fun. Try one of 

TBZ"IFMMP" the first few puzzles in the 

or: program's "library" if you're 

QFL"DGAAR" new at the game: they're quite 

_. simple. The expert will find 

The object, of course is to , H her problemj r near the en d, 

dec.phertheoriginalquotat.cn. or g, the H even | ng newspaper! 

Experienced cryptographers Either way, you'll be using 

have a number of tricks which aid space-age technology to work on 

them in solving a puzzle. For puzzles that have fascinated men 

since the time of Shakespeare! 
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18 CLS:PRINTCHR$<23> 



26 ' 


4/15/79 


20 PRiNTem * 


CRYPTOGRAM 


40 PRINT0454, " 


BV RIK PIERCE 


50 ' 


296 PflCIFIC ST 


68 ' 


BROOKLYN, N. V. 


70 ' 


212-875-7307 


80 ' 


VERSION 3. 4 
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90 FOR XX=1TO1500:NEXT XX:CLS 

100 PRINT0384,CHR$(23>;"DO VOU WANT INSTRUCTIONS"; : INPUT fl$:IF L 

EFT*(A$,l)="Y"GOSUB 858 

118 CLS 

128 CLEAR3888 

138 DIHC$<388>,M$<358> 

148 DIM C<100>,A(90),B<250> 

150 Q$=CHR$(24> 

160 PRINT0140, "TYPE IN CRYPTOGRfiH OR fl NUMBER FROM THE BANK" 

178 INPUT M$:IF LEN(M*)<3 THEN BN=VAL(M$):GOTO190 

188 GOTO 288 

190 GOSUB 1100 

288 CLS:PRINT0448,CHR$(23); :PRINT" ASSEMBLING CRYPTOGRAM 

218 M$=M$+" " 

228 Y=1:Q=8:X=8:L1=8 

238 ' ** K=LENGTH OF CODE M$ ** 

248 IF LEN(M*»142 THEN Ll=32 

258 FOR K=l TO LEN<M*>+50 

268 C$flO=MID$(H*,K,l> * 

270 B(K)=0 

288 NEXT K 

298 aS:IF Ll=8 THEN PRINTCHRK23) 

380 M2$=M$ 

310 H1$=M$ 

320 X=32+L1+X:Z=32+L1 

330 ' ** DETERMINE LENGTH OF EACH LINE ** 

340 IF C$(X)=" " THEN 370 

350 X=X-1:Z=2-1:G0T0 340 

360 ' ** LE=LINE END ** EACH LINE HAS "Z" LETTERS ** Y=LINE * * 

370 LE<Y)=Z 

388 K1=K-LE(Y) 

398 IFLE(Y)=8 GOTO 448 
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488 PRINT@64+<i92*<V-l», LEFTKH*, LE<Y» : Y=Y+1 
418 M$=RIGHT$(i11$, <LEN<l"ll$>-2» 
428 GOTO 310 
438 ' 
448 ' 

** SUBSTITUTION ** 
450 IF F7=5 PRINT8964, "CRYPT fiBNi ". . . CHflLLENGER!"; :GOTO 488 
468 IF BN>6PRINT§978, "CRYPT #"i BN; 
478 fi$=INKEY$:fi$="" 

488 PRINT8896+INT(Ll/2), • CRYPT LETTER TO CHfiNGE? ") 
498 fi*=INKEY$:IF fl$=»" OR B$=CHR$<13> THEN 498 
588 IF fi$=" "GQT0488 

518 IF ft*=V"FOR L=8T0Y:PRINT8<192*L>,CHR$(38>J :NEXT L:FOR XX=1T 
OK : B<XX)=8 : NEXT : 0=8 : Q0T0488 
528 IF A$="?"CLS:G0TQ128 

538 IF fl$= n N" THEN BN=BN+1:G0T0 198' * NOTE THIS IS SHIFT N * 
548 PRINT8896,CHR*<38>; 

558 FOR XX=1T015:NEXT XX 

568 PRINT8988+INT<LL/2>, "NEH LETTER FOR "; 9$; ftt; 9$; " IS ?"; 

578 B$=INKEY*:IF B*="" OR B*=CHR*<13> THEN 578 

588 PRINTCHR$(8)iQ$j B$iQ$i 

598 B<fi<flSC<fi*»)=8:IFB$=" " THEN 658 

688 U=8 

618 IF B(flSC(B$))05 THEN B<RSC<B*»=5:G0T0 658 

628 PRINT8896, CHR$<38>; 

638 U=U+l:PRINT§918+INT(Ll/2), B flLREflDY IN USE ";Q*;B$;Q$; :FOR- 

XX=lT0188:NEXT:PRINT§9ie, " "; :FOR XX=1T0188:NEXT:I 

FIK5 GOTO 638 

648 GOTO 448 

658 fi<RSC(fi$)>=RSC<B$> 

668F8=8 

678 ' 

** LOOK AT EACH LETTER ** 
688 FOR L=l TO Y-l 
698 FOR Kl=l TO LE(L) 
780 T=T+1 

718 IF aSC(C$(T»<65 THEN PRINT8<192*(L-1>+R>, C*(T>- :GOTO 748 
728 IF C$(T)Of» THEN GOTO 748 
738 PRINT§<i92*<L-l>+R),B$;:F8=5 
748 IF L108 THEN R=R+1: GOTO 768' Li=32 WHEN CRYPT IS VERY LONG 
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758 R=R+2 

769 NEXT Kl 

778 R=8 

780 NEXT L 

790 IF F8=5 G0T0828 

880 PRINT0896,CHR$<28>; 

818 B(fiSC<B$»=0 

828 U=U+1:PRINT0910,Q$;A$;Q*;" NOT IN CRYPT. ":FOR TIME=1 TO 180: 

NEXT:PRINT0916," "; :FOR TIIC=i TO 100:NEXT:IF U<5 G 

OTO 828 

830 T=0:Q=1 

840 GOTO 440 

850 ' ** INSTRUCTIONS ** 

860CLS:PRINTCHR*<22>;" INSTRUCTIONS" 

870 PRINT :PRINT"CRVPTOGRfiMS ARE SIMPLE COOES IN 

888 PRINT-HHICH ONE LETTER IS SUBSTITUTED 

898 PRINT'TOR ANOTHER. THIS PROGRAM HAS 

900 PRINT"fl BflNK OF CRYPTS SO YOU MAY 

910 PRINT-TYPE IN EITHER AN ORIGINAL 

920 PRINT"CRYPTOGRAM, OR THE NUMBER OF 

920 PRINT"ONE IN THE BANK. AS EACH CRYPT 

940 PRINT"IS DISPLflYED YOU HILL BE ASKED 

950 PRINT"HHICH LETTER TO SUBSTITUTE. YOU 

960 PRINT"THEN TYPE THE LETTER Of THE 

978 PRINT"CODE YOU WANT TO CHANGE. NEXT 

980 PRINT-TYPE THE LETTER YOU WANT TO 

990 PRINT-SUBSTITUTE. " 

1000 GOSUB 1090 

1010 PRINT"SPECIAL SYMBOLS: 

1820 PRINT"HHEN ASKED WHAT LETTER TO CHANGE 

1020 PRINT 

1840 PRINT" "i CHR$G4>; V"; CHR$G4>; ". . CLEARS ALL SUBSTITUTION 

S 

1058 PRINT 

1060 PRINT" ";CHR$(34);"?"jCHR$(24);". . . SELECTS ANOTHER CRYP 

T 

1078 PRINT 

1080 PRINTCHR$<24>; "SHIFT N"; CHR*G4>; " . . SELECTS NEXT CRYPT 

1090 PRINT0984, "=ENTER="; : INPUT Q$:CLS:PRINTCHR$<22): RETURN 
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1188 ' ** BBNK OF CRYPTS ** 
1118 IF BN>29BN=29 

1128 ON BN GOTO 1138, 1158, 1178, 1198, 1218, 1238, 1258, 1278, 1298, 131 
8, 1338, 1358, 1378, 1398, 1418, 1438, 1458, 1470, 1498, 1518, 1538, 1558, 15 
78,1598,1618,1638,1650,1678,1698 

1138 H*="GK'VK YLIKZ YLLKZTKT GQKZ GK DVK ZYI HYPRIKPB YLLKVKT I 
QDI GQREQ GK TVZ'I VKDPPB GDZI. " 
1148 RETURN 

1158 H$="PYXT BU FLT RYYH FLHVKSL &BHL ET CVXT fiHVC UTPflBULQTUU 
FY UTWXBHT JQR BHYC UVPBFKRT FY JPP FLT EYHPR. " 
1168 RETURN 

1178 H$="«<VBB BCCBLHYFPC GS PYSB FVB CGHBHXYLN HG RG, CGHBGLB H 
G PGflB, FLR X6ZB SGV YHZVGflBHBLH " 
1188 RETURN 

1198 H$="«EK XIHEY HBZ D*EY PUK2HLPEA RM ~ XIKD PGCPDR UPVK RB 
ZK XIKWZ LPZft CHGG CNZV KOKE HJ XIKD RME'X. " 
1288 RETURN 

1218 N$="K RPPH-KZPH LPHR SBL ZBHfl SPH YBMLR CMXSBJ IBRS K XKMJ 
LKNBWZ: 8 +CHR$<34)+"IBRS Kflfl GN fiCUP KHJ 6CLR CY GN KBRCIKHXP. "+ 

CHR$(34)+" " 
1228 RETURN 

1238 M='H ZXQQV2S HS OPUU 2VFS QVSFZ JYSS BSYZS LSOPXZS Hfl WZ S 
PZHSY RHBHER flISF PHPN ftIPE BYHMER flV ZSUU flISF. ■ 
1248 RETURN 

1258 ttt=°HTYTUVfftl VH UTETY MVETU flB LH - QPOZ QBZIBHLYT PUM MVH 
QYIOVUT RPET fiB JT VUMVEVHLPOON PQRVTETM. " 
1268 RETURN 

1278 M$="CZH XRWYZ JVDP CILCMD ORRX C IKPPIR XRXXRW KZ QKD JCOR 
-VX PY BR LYWPQ QKD DCIP. H 
1288 RETURN 

1290 H$=»PZ HTM RYFM SM NRYfi SGWCMOYWK TGS GRO QTYVCOIttl SYW flRO 
W GR& SH PMKYW fiG S6WCM0 STMW RTHZ SYW QGFH YW. " 
1368 RETURN 

1318 M*="BD'F H CBJ LBSWSPFF DX PSDMRFD FXVP EXQLF NBDK H FPIMPD 
CPIHRFP DKPG EPPQ FX BVTXMDHSD NKBQP DKPG HMP DPQQBSJ BD DX FXV 
PCXWG PQFP. " 
1328 RETURN 

1338 M$="SYR NRBS QHIS DR RZRP NRBSKD COKG KSYRP ORKOFR HB SYLS 
KI HX0PKZH6Q KCPBRFZRB. " 
1340 RETURN 



1350 H$="DP FNDRP PMN NKVPLRP IVNRB'P KV DGVCBI PDFELBK DWVCP VP 

HN6R. " 

1368 RETURN 

1376 H$="XN flNTLE OLNTE DE ~ GNIPHZNUHI UOP FNE POCM UGHX NX 

FQ GNIPJF QOfl DE. " 

1388 RETURN 

1338 M$="flMJHRBREDH HEJ IDC GRKKRIfc WRUC MTDLPCL OMTHEDL flCIRK 

CEPC UCPJ GTBM IUCPYCRYMO; OHCHC EPC, IU BITPHC, flPCQQJ PITDL U 

R'tTPCH. " 

1488 RETURN 

1418 Mt= a 0tMt£, WAV HXRVOGfcHG, LYHHRNRHG, HF GflWEJHKRZO, BRQQ 

HVOC GflZG RZLLROVHH RH GfiV TRFHG NMHG HVHRFZY6V GflROK RO QRTV. 
RG'HBfiZG BV ZQQBZOa " 
1428 RETURN 

1438 H*="OXKE PQH VLE'V NKLV 'KR LEfl VXKP OQE'V SKV PQH TQGE 'KR 
, THHV HEHN 'KR. GV LSOLPW JMNKKRH. " 
1448 RETURN 

1458 M$="Z VXZFF UWKFY, FJJEKDH ZG Z HLBZG YZDB, ZVEBV MKV TZGWB 
L: "+CHR$(34>+"KV WB TJL KB JL ZX K TJL HKX?"+CHR$<34>+" " 
1468 RETURN 
1478 H$="RJB flCGDPH MR ZBUWHDCHH PE RDKERi PRE QCDX CVZ QHWfl CDB 

0KERPH8 CVZ fiDBBZHU. RW ECHDPfiPHB HVB UCH ZBERDHM GWRJ. " 
1488 RETURN 

1498 «$="KftHI1PHECSM CLH JEH ILJ KBRSO CJ BOV MPHOCRJEG VEJIO HRC 
LHfl HTHflWCLREQ Jfl EJCLREQ. ■ 
1508 RETURN , 

1510 M$="XRBGB HflVFVH GVCTF UK B JKRZID QTI XKWVCTFZ VD CIVDC JU 
BHKZ BDX UIIVDC FTVDCZ. " 
1528 RETURN 

1530 «$="HYFH TLRMDHTLFHG JLKJCJKTFW SYH RQFDU VQ SJWW NQ OHLPTQ 
DQK JU FNMTH OQDHFJL HH N8 KQRQFHQK. " 
1548 RETURN 

1550 Fi$="DV ZYBFW MZ HV NDNCV MFNW "+CHR$<34)+"F'V0VBrWRB NYWFZC 
l*B€"+CHR$G4>+" GNR HV WFV KZLW PHIOZKNm CZYRPNHZYH DNE MZ IN 
LL MFV HV6R " 
1560 RETURN 

±570 M$="HBIKH LYW NMIKW? TLYH GBflMI IKVHMIKW? HIF VKIGBYR FMP1 
YKBfiZNMI — HZBV RBYW MX CLNHI TBCC NIBVR FMP HZK RIKLHKVH IKTLI 
W. " 
1580 RETURN 
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1599 M$="DZ NM6 JVK XSJ L FBVH GBM CMIZ FXDM KWJ GXFGM LS FMQMO 

GLSK FQLNIfllF - HBXG L QBWFM, BM OBHHF GW. " 

1668 RETURN 

1610 M*="VH J ZICJH HKNRCI TQ DTNCH EJE Vfi OTHOCIHCE JRTKM XJIB 

VHZ fiXJOC, HOC BVEfl JRTKH TKMCI AXJOC, JHE NTMDCI JRTKH OPTRCM fl 

XJOC. " 

1629 RETURN 

1630 M*="IW IGHPfi JFDMGPD MP KPG LKLGPD KR FPFGU, BG LFM KRD6P G 
VTFJG WGFUV KR UGflUGD. ■ 

1640 RETURN 

1650 M$=CH?$<34)+"CDD QR BCSWYDR EPHHBHHLPFH KPS C ESBTLPVH QPQB 

FW PK HLQB, "+CHR$(24)+" NBSB WYB DOW SBTPSUBU NPSUH VWWBSBU JR 

XVBBF BDLGCJBHV WYB KLSHW. " 

1668 RETURN 

1670 M$="NGHES, PGU G2 PGHS, Qfl RDM UZGEV flRIW QES MPQXW RN EGRN 

H QES Qfl flDH ZRVDfl flRIW QES MPQXW RN MPWQNQEft IHNRX. " 

1688 RETURN 

1690 M$="XFRT XPBNXMLUCRBXH JBNLHXP DVMXPWNJ XVBRHVW XPWRGXBWJ 

TDPRVC XPTDLDJ MUBXFXWRLVJ. " 

1708 RETURN 



^2#Mtt f% ■ ■ Rec O"imencled for 
•IjMUM^m MM Small Businesses 

Business 
Bookkeepin 

Based on the well- 
known Dome Book- 
keeping System. Posts \ ^y Miller Microcomputer Services 
expenses to as many as 42 \ and Roger W. Robitaille, Sr. 

accounts (which you may\ 
customize). Produces video \ 
and line printer reports for* 




year to last week, this week, year to date; Available for 32K 
supports cash system of accounting; Disk Systems - $24 95 
stores data on disk for fast retrieval. 



IfC TRJ-SO Software EKchanoc 



17 Briar Cliff Drive Mlltord, New Hampshire 03055 
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TIRED OF DISK ERRORS? 

STOP BLAMING YOUR DRIVES - 
FIX YOUR DOS! 




NEWDOS, by Apparat, is the third generation disk operating 
system for your TRS-80 NEWDOS corrects over 70 errors 
and omissions in TRSDOS 2 1 and disk BASIC, yet the two 
are completely compatible! Programs and files saved under 
one can be used with the other interchangeably Going from 
TRSDOS 2 1 to NEWDOS is like going from Level I to 
Level II more power, more convenience, greater speed 

NEWDOS has the power to: 



•Use all DOS commands 
(incl directory) in BASIC 

•Automatically load and run 
a BASIC program 
on power- up 

•Produce variable cross- 
reference tables 



•Open 'E' to add to 

sequential files 
•Append files 
•Use your line printer, as 

a screen printer 
•Renumber BASIC programs 
•End keyboard bounce 



And, best of all, say goodbye to system crashes, lost data and 
wasted time caused by your old, bug-ridden system software. 



You paid $500 for your disk drive — 
why struggle with it? 



Apparat s NEWDOS is fully documented and available 
for only $49 95 from 

TfE TR5-80 Sot tujofc EMch<M9c 

17 Briar Cliff Ortv* Mtlfard N*w Hampthir* 0306S 



NEWDOS • 



If NEWDOS is the Cadillac of disk-operating 

systems, then NEWDOS + has to be the 

Ferrari. NEWDOS + retains all the features of 

the original NEWDOS, and adds 

the following utilities: 

Editor assembler for disk LJ 

Disassembler (Z80 machine code) L- 

LM Off set allows transfer of any system tape to a £) 

disk tile (automatically relocated) 

BASIC1-Level one BASIC saved on disk O 

LV1DSKSL not a typo, this saves and loads BASIC1 Q 

programs to disk 
DtRCHbCK tests and lists disk directory C 
Superzap display print modify any location f 
in memory or on disk 

Superzap alone is worth the price of this 

package. With it , we've quickly recovered lost 

programs, restored killed data files, and 

saved many hours of effort. The NEWDOS + 

manual is another plus: clear and concise, it 

even includes a byte-by-byte explanation 

of the directory file . . . 

invaluable if you ever need to 

save a crashed disk! 



K 



The price tor all this c )mputer power? That s the best part' 

NEWDOS +, Just $99.95 

NOTE: Use of this software may require documentation available only with the 
purchase of Radio Shack TRSDOS 2 t and or the Radio Shack Editor Assembler 

TfC TRI-SO Softujorc Cxchonoc 

W 17 Br ar CI It Drive Milord N«w H.mpih.r. 0305$ 
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GAMES 



GAM€ 



CATALOG 



ACCESSORIES 



RSONAL 



E&SOfllES 



kwmum 




BOOK 
GAMES 

HARD* 
GAMES PER: 
SPECIAL PURPO 
GAMES PERSONAL 
ACCESSORIES 



Warfare I 4-game anthology, Le- 
vel! I, 16K $7 95 
Backgammon by Scott Adams 
Level II, 16K $7 95 
X-Wing Fighter II by Chris 
Freund Level II, 16K $9.95 
Taipan by Art Canfil Level II, 
16K $995 

Cribbage by Roger W Robitaille, 
Sr Level I or II, 16K $7 95 
Sargon Chess by Dan & Kathe 
Spracklen Level II, 16K $19 95 
Chess Companion by Michael 
KelleherLeveill,16K$7 95 
Three D Tic Tac Toe by Scott 
Adams' Level I or II, 16K $7 95 
Concentration by Lance Mickfus 
Levellorll,16K$7 95 
Amazin' Mazes by Robt Wallace 
Level II, 16K $7 95 
Time Bomb by David Bohlke 
Level I or II, 16K $4 95 
Balloon Race by Dean Powell, 
Level II, 16K, $9 95 
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Snake Eggs with sound by Leo 

Christopherson Level II, 16K 

$14.95 

Life Two by Leo Christopherson 

with Sound, Level II, 16K $14.95 

Android Nim with sound by Leo 

Christopherson Level II, 16K 

$14 95 

Cubes by Leo Christopherson 

Level II, 16K $9 95 

Mastermind II by Lance Micklus 

$7 95 

Mastermind II source list $20 00 

Robot/Breakaway Game duo by 

Lance Micklus Level II, 4K $7 95 

Tycoon by David Bohlke Level II, 

16K$7 95 

Slalom by Denslo Hamlin Level 

ll,16K$7 95 

9 Games for Preschool Children 

by George Blank Level II, 16K 

$9 95 

Ten Pin by Frank B Rowlett, Jr 

Level II, 16K $7.95 

All Star Baseball by David 

Bohlke, Level II, 16K $7.95 



End Zone by R. W. Robitaille, Sr. 
Level I or II, 16K $7.95 
Atlantic Balloon Gross by Dean 
Powell Level II, 16K Special price, 

$9.95 

Space Battles by Level IV, Level 
II, 16K Tape or 32K Disk, Tape - 
$14.95, Disk - $19.95 

Star Trek III. 3 by Lance Micklus 
Level II, 16K $14.95 
Dog Star Adventure by Lance 
Micklus Level II, 16K $9.95 
Adventures on tape by Scott 
Adams Level II, 16K Choose one: 
Adventureland, Pirate's Cove, 
Mission Impossible, The Count, 
Voodoo Castle, $14.95. 
Adventures on disk by Scott 

Adams. Pirates Cove plus Adven- 
tureland, or The Count plus 
Voodoo Castle for 32K disk 
system $24.95, 

Now in machine language for 
faster and easier response. 

Safari by David Bohlke Level II, 
16K$7.95 

Treasure Hunt by Lance Micklus 
Level I or II, 16K $7.95 
'Round the Horn by George 
Blank Level II, 16K $9.95 
Pork Barrel by George Blank 
Level II, 16K $9.95 
Kamikaze by Russell Starkey 
Level II, 16K $7.95 
All Star Baseball by David Bohlke 
Level II, 16K $7.95 
Air Raid by Small System Soft- 
ware Level I or II, 4K $14.95 
Barricade by Small Systems 
Software. Machine language - 
$14.95. 

Journey To The Center Of The 
Earth by Greg Hassett. Level II, 
16K Tape $7.95. 

Pentominoes by Solomon W. 
Golomb. Level II, 16K - $9.95. 
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Inventory 2.2 by M. Kelleher and 

R.W. Robitaille, Sr. 16K disk 

systems $59.95 

Inventory System 2.3 by M. 

Kelleher. Improved version, 

$79.95 

Inventory 'S' by BUS-80 Level II, 

16K Tape - $24.95; 32K Disk - 

$39.95 

Payroll by Stephen Hebbler for 
disk systems 32K $24.95 
Accounts Receivable II by S 
Hebbler 32K disk systems $79.95 
Appointment Log by Michael 
Kelleher Level II, 16K $9.95 
General Ledger I by M. Kelleher, 
requires 32K Disk, $79.95 
Mail List II by BUS-80 32K disk 
systems $99.95 

Small Business Bookkeeping by 
R.W. Robitaille, Sr. Level I, 4K 
or Level II, 16K with journal 
$22 00, without journal $15 .00 
Small Business Bookkeeping for 
Disk by Miller Microcomputer 
Services and Roger W. Robi- 
taille, Sr., 32K Disk. With 
Journal $31.95; without journal 
$24.95 
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Calculator by R.W. Robitaille, Sr. 

Level I or 1 1, 4K $2.95 

Moving Signboard by Circle 

Enterprises Level I or II, 4K 

$9.95 

Histograph/Scattergram by Gary 

S. Breschini. Level II, 16K $9.95. 

Simple Simon by George Blank. 

Level! I. Written in BASIC. $4.95 

Math Drill by K.L. Brown Level 
ll,16K$4.95 
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RPN Calculator by Russell Star- 
key Level 11,16k $9.95 
Ham Radio by Michael Kelleher 
Level 11,16k $9.95 
Ham Radio ARS 1.1 for 32K disk 
$24.95 

Electronics Assistant by John 
Adamson Level -II, 16K $9.95 
Pref light by Stephen Hebbler 
Level II, 16K $20.00 
Basic Statistics by Steve Reisser 
Level II, 16K $20.00 
Drill Masters by Computer 
Graphics — specify title desired 
Level II, 16K $7.95 EACH: 
German, Chinese, Russian, Ital- 
ian, Spanish, or Music Theory. 
Keyboard-80 by John Adamson, 
Level II, 16K $9 95 
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Typing Tutor by 80 US. Level II, 
16K- $19.95 

Secrets of the Tarot by John T. 
Phillipp. Level II 16K $9.95. 

Biorhythms by Frank B. Rowlett, 
Jr. Level I or II, 4K $4.95 
Personal Finance by Lance Mick- 
lus. Level II, 16K $9.95 
Advanced Personal Finance by 
Lance Micklus For 32K disk 
systems $24.95 

Home Financial Management by 
Michael Kelleher Level II, 16K 
$9.95 



UTILITIES 

NEWDOS BY Apparat $49.94 
NEWDOS+ by Apparat $99.95 
Three Monitors for Disk by Small 
Systems Software Disk for 16 
through 48K (all on one) $29.95 

, Aft 



KVP Extender by Lance Micklus 

Tape, $24.95 Disk, $29.95 

KVP 232 by Lance Micklus - KVP 

adapted for the TRS-232. 

Tape $24.95 

ST80 Smart Terminal Level II, 

16K $49.95 

ST80D SMARTER Terminal for 

disk systems $79.95 
Micro Text Editor by Don Coons 
Level II, 4K or 16K $9.95 
Text80 by Frank B. Rowlett, Jr. 
For 32K disk systems $59.95 

8080-Z80 Conversion Level II, 

16K $15.00 

Penumber by Lance Micklus 

Level II, available in 4 through 

48K (specify when ordering) 

$15.00 

Renumber source listing $20.00 

Renumber on Disk all versions on 

diskette $25.00 

Machine Language Monitor by 

Small Systems Software Level I 

or II, 16K $26.95 

Electric Pencil by Michael 
Shrayer. Powerful machine lan- 
guage word processing system. 
Level II, 16K tape $100; Disk 
version $150. 

Level III BASIC by Microsoft. 
$49.95. 

Level I In Level II by Apparat. 
Level II, 16K -.$15.00. 



For more detailed descriptions 
of our TRS-80 software and 
accessories, send for the TSE 
catalog — it's free! Write or 
call today for your copy: 

TRS-80 Software Exchange 
17 Briar Cliff Drive 
Milford, NH 03055 

603-673-5144 



Fortran by Microsoft, 32K, 2 
Disks — new low price $195.00 

MMSForth by Miller Microcom- 
puter Service. Powerful new 
compiled language — cassette 
version, Level II, 16K - $39.95; 
Disk version, Level II, 16K 
$49.95;MicroForth primer $15.00 

System Copy by Kalman Bergen. 
Level II, 16K $9.95. 
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Sargon Handbook by Dan & 
Kathe Spracklen $14.95 plus 
$1.00 shipping 

The BASIC Handbook by Dr. 
David A. Lien $14.95 plus $100 
shipping 

Z80 Instruction Handbook by 
Scelbi Publications $4.95 
The Little Book of BASIC Style by 
John Nevison $5.95 plus $1.00 
shipping 

TRS-80 Assembly Language Pro- 
gramming by William Barden, Jr. 
$3.95 plus $1.00 shipping and 
handling 



c ?^fi 



605*675*5144 
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TR5-80 Software Exchange 

BRIAR CUFF DRIVE MILFORO. NEW HAMPSHIRE 030S5 



l.mi-H.MIM 



Cassettes boxes of ten each. 

C-10, $6.50 plus $1.00 shipping; 

C-20, $7.50 plus $1.00 shipping 

Diskettes Dysan, box of 5, $24.95 

plus $1.00 shipping; Verbatim, 

box of 10, $34.95 plus $1.00 

shipping 

Diskette Storage Box $5 00 

TRS 232 by Small Systems 

Hardware — $49.95 

Percom Disk Drives single or 

dual, for TRS-80's. Single drive, 

$399.00; Dual drive, $799.00; 

Cable (required) $29.95 

Floppy Armour™ Protective 

envelope for shipping floppy 

disks, 5-pack - $4.95 plus $1.00 

shipping & handling 

16K Memory Kits by Ithaca 

Audio, 16K RAM's $99,95 



IMPORTANT 

• In states where applicable, 
please add sales tax. 

• All C.O.D.'s or special delivery 
orders are a minimum of $5.00 
for special handling. 

• When ordering Percom, please 
add $10.00 packaging and han- 
dling fee. 



WANTED: Used TRS-80 equip- 
ment! We buy and sell used 
equipment. Call or write for 
details. 

SEE US AT THE 
NORTHEAST COMPUTER SHOW 

SEPTEMBER 28-30, 1979 

Hynes Auditorium /Prudential Center 

Boston, MA 

BOOTH CS67 



69 



C g 



IW 



Q. 

E 

(0 

Z <o 



S "5- 



w D (0 
|_ >* X 

c v 

x: <d -Q 
£*£ 

IeS 

a> "a .52 

P O T3 



— - CD co 

81 « 

in jo o 

m ~ >, 
CO co ~ 

2 It 

j* o> co 
co o o 

C «4- tt 

o o 

<0 P n 



o 6 

CO 



o 



£ 



* i © 

® £"§ 

i- CO t_ 

•ft co-c 



CO 


O 


& 


h- 


a. 


0. 


oo 


DC 




O 




00 




LU 




Q 




ECU 
CO 

EcO 
o 



:-e e 

T> C 

CO — 

>»2 i 

Sg 8 

coo * 

CO ■<* "D 

CD C CO 



C Q. 

— Q. 

cB OT 

x: co 



!> — aj co £ ■£ 



<u 2 a3 *j 



E *2 



kJ o 

0| c 






LU 
c/) 


>N 


'CD 


O 


o 


1- 


tt 


x: 




CD 


>- 
1- 


t5 


o 


O 


3 

F 


Z-D 


E 


a> 


n 


< 


a) 


o 












DC 


=j x: 






DC 


co 




a) 




< 


u 


>N 


CO 






cd xj 


c 

c 


CO 
CD 


D 
O 


■D 
CD 


c z: 


CO 
CD 


I 

00 


a) 
To 
o 


x: 
o 

X 

CD 

O 


3 

c 
>> 


CO 

E 

CO 

"O 
"cO 


00 


CD 




r 




< 

03 


CO 

CO 


O 
CO 


CO 

o 


CD 

3 



< E o e 8r I 

Zgcx= fe g.| 

iplll 

O Q. O) >r .9" j 

- "5 C O 3 
>> rrTi CO CX ! 

co .o £ ■£ -d \ 

>N - <0 

O — CO v_ v 



O 

a 

-j 
o 

00 

LU- 
CC ~ 
< 



^ O o ^ r- 

>E EzE* 

i io - w '" g L 

. CO 0"0£l O, | 



- sjojj9 |e3!i|dej6odA) joj aiqisuodsaj jon- 

















o 




















o 








































iA 




















LU 


00 


cc ^ 

LU P 
Q CO 

go 
















O 

. CC 


LU 

a 

CC 

< 
















< 

I 
















o 


X 


I £ 
















a 


o 


H- «g 
















z 


_J 

< 

z 


^ ^ 
















1 _J 
Q 

z 


Q 
















o 


LU 
00 
















< 


K 


3 < 

o w 
z > 

LU 
















I 

Q 
Q 
< 


Q 
Q 
< 




















< 




















H 




















o 




















1- . 




















^: 




















o 




















CD 




















sz 




















O 



Q 0) 3 C ' 

LU Q.Q n 
LU 2 c 



70 



3l5ja 



PO Box 68 
Milford, NH 03055 

' 'your BASIC software magazine' ' 

Rush me the next 12 issues of SoftSide 

□ USA bulk. $18 1 yr. D$32-2 yrs. □ CANADA/MEXICO $25 1 yr. 

□ USA first class $25 1 yr. ^OVERSEAS airmail $30 1 yr. 

□ APO/OVERSEAS surface $25 1 yr. Telephone your charge card order! Call 

Credit Card "^ 



El 



Exp. Date. 
Signature. 

Name 

Address- 
City 



nterbank # 



our Subscription office Monday through 
Friday 9:30 to 5:30 (Eastern time) at 
603-673-5144 



(M/Conly)_ 



-State - 



-Zip- 



Please remit in US funds ONLY 



Ready to get serious? SUBSCRIBE TO PROG/80 the magazine 
dedicated to serious programmers... beginners to professionals 



SUBSCRIPTION RATES - 6 issues per year 

USA Canada 

Bulk mail - $15.00 Mexico 

First Class Mail - $21.00 APO/FPO 

Overseas airmail - $27.00 Overseas surface matl 



1 



$21 .00 



D Check/Money Order enclosed Q Master ®$$f g^Sfk 

SIGNATURE 

ACCOUNT # __ 

••EXPIATE ••-••••• '•• -• •••• '/■'■■■-■■ 
NAME 



oferaa*#; 



ADDRESS. 
CITY 



STATE 



ZIP 



Telephone orders accepted for Master Charge or VISA accounts. Call Monday through 

Friday, 9:30 to 5:30 EST at 603-673-5144 

PO BOX 68, MILFORD, NH 03055 
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ELECTRIC 
PfinCIL ! 

Effortless typing is here! 

The Electric Pencil by Michael Shrayer 
is a true word-processing program for 
the TRS-80. Enter your manuscript, 
and let your computer do the work. 
Editing? Just position the cursor with the 
arrow keys . . . one-key commands let you 
change, delete, or insert. Fully 
adjustable margins, left/ right justifica- 
tion, variable spacing, page headings, 
and much morel Save and recall your text with tape or 
diskfiles. Typeing everything 
from letters to reports is fast and Leve | M 16K tape -$100.00 
ElTO?r7cPenci? a8y ° Disk version -$150.00 




CTRS-0O Software exchange 

(j g 17 Briar Cliff Drive Milford, New Hampshire 03055 
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